Question

[Sinphuya Kimito]

Viết chương trình in ra các ước số của N bằng câu lệnh For...do và While...do

Cứu mình!

Answer 1

[Sinphuya Kimito]

        

Answer 2

[Nguyễn Lê Phước Thịnh]

uses crt;

var i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do if n mod i=0 then write(i:4);

readln;

end.