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

Question

Информатика

Артемка

23 сентября, 20:48

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

+3

Ответы (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.