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

Ответы

Ответ дал: Sky09
0

Паскаль

 

var a,i:integer;

begin

readln(a);

writeln;

for i:=1 to a do

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

end.

Похожие вопросы