Предмет: Информатика,
автор: causty
Напишите программу задачи на языке Паскаль.
Требуется выяснить, является ли введенное пользователем число совершенным. Совершенным называется такое число, сумма делителей которого равна этому числу, если не учитывать в ней последний делитель-само заданное число. Например, число "6" является совершенным числом, поскольку оно имеет три делителя: 1, 2, 3 и при этом 1+2+3=6, то есть самому числу
Ответы
Автор ответа:
2
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.
Интересные вопросы