Натуральное число, на которое заданное число делится без остатка:

1

Ответы и объяснения

  • Sky09
  • профессор
2013-06-23T19:38:16+00:00

Паскаль

 

var a,i:integer;

begin

readln(a);

writeln;

for i:=1 to a do

if (a mod i=0) then writeln (i);

end.