На языке паскаль абс написать программу (Не глушилку, а нормальную программу) (желательно с помощью Циклов и If-ов)

Натуральное число называется совершенным, если оно равно сумме своих делителей, включая 1 и, естественно, исключая само число. Например, совершенным является число 6 (6=1+2+3).

Необходимо найти все совершенные числа, меньшие заданного числа N.

Формат входных данных

Вводится одно целое число N (1≤N≤100000).

Формат выходных данных

Требуется вывести все совершенные числа, меньшие заданного числа N.

Числа следует выводить в порядке возрастания, разделяя пробелами.

Примеры

входные данные выходные данные

7 6

Question

Информатика

Марианыч

17 декабря, 05:27

На языке паскаль абс написать программу (Не глушилку, а нормальную программу) (желательно с помощью Циклов и If-ов)

Натуральное число называется совершенным, если оно равно сумме своих делителей, включая 1 и, естественно, исключая само число. Например, совершенным является число 6 (6=1+2+3).

Необходимо найти все совершенные числа, меньшие заданного числа N.

Формат входных данных

Вводится одно целое число N (1≤N≤100000).

Формат выходных данных

Требуется вывести все совершенные числа, меньшие заданного числа N.

Числа следует выводить в порядке возрастания, разделяя пробелами.

Примеры

входные данные выходные данные

7 6

+1

Ответы (1)

Знаете ответ на вопрос?

Венюся · Answer 1

Ну Хьюстон почти все уже сделал. Я чуток подправил

var i, j, s, n:integer;

begin

readln (n) ;

for i : = 1 to n-1 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.