Viết chương trình in ra tất cả các ước của 1 số n

Question

giangnguyen · Answer

uses crt;   var i,n:longint;   begin   clrscr;   readln(n);   for i:=1 to n do if n mod i=0 then write(i,' ');   readln   end.

ngocdiep · Answer

Program uoc_n;

uses crt;

var n,i:integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

write(‘Cac uoc cua ‘,n,’ la: ‘);

for i:=1 to n do

if n mod i=0 then write(i,’ ‘);

readln;

end.

0 bình luận về “Viết chương trình in ra tất cả các ước của 1 số n”