Question

să se elaboreze un program care ne va arăta cîți divizori are un număr citit de la tastatură în Pascal

Answer 1

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.