Напишите программу, которая вводит натуральное число N и находит все совершенные числа в диапазоне от 1 до N. (Pascal)

Совершенное число — это натуральное число, которое равно сумме своих делителей, кроме самого себя. Например, \(6\): его делители \(1, 2, 3\), и \(1+2+3=6\).

Программа на Pascal:

program PerfectNumbers;
var
N, i, d, sum: integer;
begin
readln(N);

for i := 1 to N do
begin
sum := 0;

for d := 1 to i div 2 do
if i mod d = 0 then
sum := sum + d;

if sum = i then
writeln(i);
end;
end.

Здесь внешний цикл перебирает все числа от \(1\) до \(N\), а внутренний ищет делители каждого числа и считает их сумму.

0 0 Пожаловаться