viết chương trình nhập vào các số nguyên N.in ra màn hình các nước của N

1 câu trả lời

uses crt;
var n,i,t:longint;
begin
clrscr;
write('Nhap vao so lan nhap: ');readln(t);
while t > 0 do
  begin
    write('N = ');readln(n);
    write('Cac uoc cua ',n,': ');
    for i := 1 to n do
     if n mod i = 0 then write(i,' ');
     writeln;
     t := t - 1;
     if t = 0 then writeln('Da het so lan nhap :D');
  end;
readln;
end.