Категория - Информатика Автор - elizabeth1990 10 лет назад Паскаль!! Напишите логическую функцию, которая определяет, верно ли, что число N-совершенное, т.е. равно сумме своих делителей, меньших его самого.
Категория - Информатика Автор - elizabeth1990 10 лет назад Паскаль!! Напишите логическую функцию, которая определяет, верно ли, что число N-совершенное, т.е. равно сумме своих делителей, меньших его самого.
Ответ Автор - hardmad 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.