Pascal ABC Напишите процедуру которая выводит на экран все делители переданного ей числа (в одну строчку)
Pascal ABC Напишите процедуру которая выводит на экран все делители переданного ей числа (в одну строчку)
Гость
Ответ(ы) на вопрос:
Гостьvar n,i:integer;
begin
read (n);
for i:=1 to n do
begin
if (n mod i = 0) then write (i,' ');
end;
end.
Не нашли ответ?
Похожие вопросы