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

Паскаль

 

var a,i:integer;

begin

readln(a);

writeln;

for i:=1 to a do

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

end.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *