Число совершенно,если она равна сумме всех своих делителей кроме самого себя - Turbo Pascal

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

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

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

Решение задачи: «Число совершенно,если она равна сумме всех своих делителей кроме самого себя»

textual
Листинг программы
var i,j,s:longint;
begin
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 write(i,' ');
end;
end.

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

В данном коде используется цикл for, который выполняется от 1 до 1000. Внутри цикла переменная s инициализируется значением 0. Затем происходит внутренний цикл for, который выполняется от 1 до i/2, где i - это текущее значение переменной i. Если i делится на j без остатка, то значение переменной s увеличивается на j. После завершения внутреннего цикла проверяется условие s=i. Если оно истинно, то значение переменной i записывается на экран.

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

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