Напишите программу, которая вводит число N и определяет является ли число N совершенным. Совершенные числа - это те числа, которые равны сумме своих делителей, не включая само число, но включаю единицу

Question

Информатика

Камилла

2 декабря, 04:58

Напишите программу, которая вводит число N и определяет является ли число N совершенным. Совершенные числа - это те числа, которые равны сумме своих делителей, не включая само число, но включаю единицу

+4

Ответы (1)

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

Танюта · Answer 1

Var n, i, s:integer;

begin

read (n) ;

s:=0;

for i:=1 to n-1 do begin

if n mod i = 0 then s:=s+i;

end;

if s = n then writeln ('sovershennoye') else writeln ('ne sovershennoye') ;

end.