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

Ден2251 Ден2251    2   22.06.2019 11:30    0

Ответы
сусанна27 сусанна27  17.07.2020 17:36
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика