Question

Viết chương trình tìm số ước của một số n nhập từ bàn phím.

trong đó sử dụng while...do

Answer 1

uses crt;
var i,dem,n:integer;
begin
clrscr;
write('n='); readln(n);
dem:=0; i:=1;
while i<=n do
begin
if n mod i=0 then inc(dem);
i:=i+1;
end;
writeln(dem);
readln;
end.

Answer 2

var n,i:longint;

begin

readln(n);

i:=1;

while i<=n do

begin

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

inc(i);

end;

readln;

end.