Предмет: Информатика,
автор: maksprivalov01
Помогите пожалуйста.
Написать код программы по проверке совершенности числа, введенного с клавиатуры (совершенное число - это число, равное сумме своих делителей; например, число 6 - совершенное, так как 1 + 2 + 3 = 6, а 1, 2 и 3 - это и есть все делители числа 6)
Ответы
Автор ответа:
0
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var s := 1;
for var i := 2 to n div 2 do
if n mod i = 0 then
s += i;
if s = n then
Println('Совершенное')
else
Println('Несовершенное')
end.
Похожие вопросы
Предмет: Физика,
автор: razbekmun
Предмет: Геометрия,
автор: paholkoaleksandrina
Предмет: Русский язык,
автор: ainur300501
Предмет: Математика,
автор: тамара1234