Генрих
5 год назад
Вводится число n, найдите все его делители. паскаль
ОТВЕТЫ
Сергей
Oct 24, 2020
Var
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to n do
if n mod i = 0 then Write(i,' ')
End.
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to n do
if n mod i = 0 then Write(i,' ')
End.
956
Смежные вопросы:
