Дано натуральное число n.определить , является ли оно совершенным (совершенное число равно сумме всех своих делителей , не превосходящих само число)

kirillefimov1 kirillefimov1    1   02.06.2019 14:20    1

Ответы
Sundywer Sundywer  03.07.2020 09:56
Var numb,k,summa:integer;
begin
readln(numb);
for k:= 1 to (numb-1) do
begin
if numb mod k = 0 then
summa:=summa+k;
end;
if summa = numb then
writeln('Совершенное')
else
writeln('Несовершенное');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика