Определить и вывести на экран все делители натуральных чисел от 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.