Паскаль!!
Напишите логическую функцию, которая определяет, верно ли, что число N-совершенное, т.е. равно сумме своих делителей, меньших его самого.
Ответы на вопрос
Ответил hardmad
0
Var n,i,s:integer;
Begin
Readln(n);
For i:=1 to n do
If n mod i =0 then
s:=s+i;
If s = n then
Write('верно')
Else
Write('не верно');
Readln
End.
Ответил elizabeth1990
0
ввожу число 6 (совершенное). программа пишет, что неверно
Новые вопросы