Определить, является ли заданное натуральное число совершенным, то есть равным сумме своих положительных делителей кроме самого этого числа

273

311

Посмотреть ответы 2

Ответы на вопрос:

bryazgin98p06isp

Информатика

4,5(34 оценок)

//pascal var i, n, sum: integer; begin write('введите число: '); readln(n); sum : = 0; for i : = 1 to n div 2 do if n mod i = 0 then sum : = sum + i; if n = sum then writeln('число ',n,' совершенное') else writeln('число ',n,' не совершенное'); readln; end. пример: введите число: 28 число 28 совершенное введите число: 21 число 21 не совершенное