Question

De la tastatură se citește un număr întreg pozitiv. Elaboraţi un program prin
intermediul căruia se vor afișa toţi divizorii unui număr natural citit. Exemplu: Date de
intrare 12 Date de ieşire 1 2 3 4 6 12. In Pascal

Answer 1

Răspuns:

program divizorii;

var n, i:integer;

begin

 read(n);

 for i:=1 to (n div 2) do

   begin

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

   end;

 writeln(n);

end.

Explicație: