Определить и вывести на экран все делители натуральных чисел от 1 до N - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Определить и вывести на экран все делители натуральных чисел от 1 до N

Решение задачи: «Определить и вывести на экран все делители натуральных чисел от 1 до N»

textual
Листинг программы
For i:=1 to 15 do
Begin
  Write(i:4);
  For j:=1 to i do If i mod j = 0 then Write(j:3);
  Writeln;
end;

Объяснение кода листинга программы

В данном коде используется цикл for, который выполняется от 1 до 15. Внутри цикла выводится на экран число i, а затем происходит проверка: если i делится на текущее значение j без остатка, то j выводится на экран. После этого выводится символ новой строки, чтобы перейти к следующему числу i.

Оцени полезность:

13   голосов , оценка 4.538 из 5
Похожие ответы