Viết chương trình in ra trên màn hình các ước của N (N là số nguyên được nhập từ bàn phím).
Yêu cầu: Mỗi dòng chỉ chứa 5 ước
Viết chương trình in ra trên màn hình các ước của N (N là số nguyên được nhập từ bàn phím). Yêu cầu: Mỗi dòng chỉ chứa 5 ước
By Madeline
uses crt;
var i,n,d:integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
writeln (‘cac uoc la: ‘);
for i:=1 to n do
begin
if n mod i=0 then
begin
write (i,’ ‘);
d:=d+1;
end;
if d=5 then begin writeln d:=0; end;
end;
readln;
end.
program uocso;
uses crt;
var n,i,d:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
writeln(‘Cac uoc cua ‘,n,’ la: ‘);
d:=0;
for i:=1 to n do
if n mod i=0 then
begin
write(i,’ ‘);
d:=d+1;
if d mod 5=0 then writeln;
end;
readln;
end.