Предмет: Информатика,
автор: Ник1998
Напишите программу , которая вводит число N и определяет является ли число N совершенным. Совершенные числа - это те числа, которые равны сумме своих делителей, не включая само число, но включаю единицу
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Русский язык,
автор: oktyabrina86
Предмет: Алгебра,
автор: valylusak56
Предмет: Қазақ тiлi,
автор: ABOK04
Предмет: Физика,
автор: jewelD
Предмет: Алгебра,
автор: Наурызбек