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

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ