Вводится число n, найдите все его делители. паскаль
Вводится число n, найдите все его делители. паскаль
Гость
Ответ(ы) на вопрос:
ГостьVar
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to n do
if n mod i = 0 then Write(i,' ')
End.
Не нашли ответ?
Похожие вопросы