Pascal ABC

Напишите процедуру которая выводит на экран все делители переданного ей числа (в одну строчку)

Question

Рогнеда

6 февраля, 01:53

+5

Ответы (1)

Знаете ответ на вопрос?

Георгина · Answer 1

Var n, i:integer;

begin

read (n) ;

for i:=1 to n do

begin

if (n mod i = 0) then write (i,' ') ;

end;

end.

Pascal ABCНапишите процедуру которая выводит на экран все делители переданного ей числа (в одну строчку)