Число совершенно,если она равна сумме всех своих делителей кроме самого себя - 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 записывается на экран.