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

0 голосов

Напишите программу задачи на языке Паскаль. Требуется выяснить, является ли введенное пользователем число совершенным. Совершенным называется такое число, сумма делителей которого равна этому числу, если не учитывать в ней последний делитель-само заданное число. Например, число "6" является совершенным числом, поскольку оно имеет три делителя: 1, 2, 3 и при этом 1+2+3=6, то есть самому числу


спросил от (42 баллов) в категории Информатика
1 Ответ
0 голосов
ответил от Одаренный (1.4k баллов)

var N,i,k:integer;

BEGIN

readln(N);

k:=0;

for i:=1 to N div 2 do

if (N mod i=0) then

k:=k+i;

if (k=N) then

writeln('Да') else

writeln('Нет');

end.

...