Question

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

Answer 1

Паскаль

 

var a,i:integer;

begin

readln(a);

writeln;

for i:=1 to a do

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

end.