А) Составьте, программу выводящую на экран все делители натурального числа N
Var A,i : Longint;
Begin
Readln(A);
For i:=1 to A do If A mod i = 0 then Writeln(i);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var A,i : Longint;
Begin
Readln(A);
For i:=1 to A do If A mod i = 0 then Writeln(i);
end.