Глобус24
Паскаль
var a,i:integer;
begin
readln(a);
writeln;
for i:=1 to a do
if (a mod i=0) then writeln (i);
end.
Ваш адрес email не будет опубликован. Обязательные поля помечены *
Комментарий
Имя *
Email *
Δ