Cati divizori are un numar:
var
a, i, b: integer;
begin
read(a);
b := 0;
for i := 1 to a do
if a mod i = 0 then
b := b + 1;
writeln(b);
end.
Care sunt divizorii:
var i,n:integer;
begin
write('Numarul n=');
readln(n);
writeln('Divizorii lui n :');
for i:=1 to n do
if (n mod i=0) then write(i,' ');
end.
