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.