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

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

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

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

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;

13   голосов, оценка 4.538 из 5


СОХРАНИТЬ ССЫЛКУ