Найдите все совершенные числа от 1 до 1000 и выведите их на экран - Turbo Pascal

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

Число совершенно,если она равна сумме всех своих делителей кроме самого себя.Пример :6=1+2+3 найдите все совершенные числа от 1 до 1000 и выведите их на экран.

Решение задачи: «Найдите все совершенные числа от 1 до 1000 и выведите их на экран»

Листинг программы

For i:=1 to 1000 do
Begin
  s:=0;
  For j:=1 to i div 2 do 
   if i mod j = 0 then s:=s+j;
  if s=i then writeln(s);
End.

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

В данном коде используется цикл for, который выполняется от 1 до 1000. Внутри цикла переменная s инициализируется значением 0. Затем, внутри вложенного цикла for, проверяется, делится ли текущее значение переменной i на 2 без остатка. Если да, то значение переменной s увеличивается на текущее значение j. Если значение переменной s равно значению i, то это число выводится на экран с помощью функции writeln.

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

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

Похожие ответы