Question

fie numarul intreg a .sa se scrie programul care afuseaza toti divizorii aceztui număr în pascal cu ajutorul instrucțiuni for​

Answer 1

program Divizorii;

var n, m, d:integer;

begin

 write('introdu numar intreg: '); read(n);

 m:=n; if m<0 then m:=m*(-1);

 writeln(' Divizorii lui: ');

 for  d:=1 to m do

    if m mod d=0

      then

         begin

            write(d, '  ');

            if n<0 then write(-d, '  ');

         end;

  writeln;

end.