Напишите логическую функцию которая определяет верно ли что число N - совершенное, т.е. равно сумме своих делителей, меньших его самого
Напишите логическую функцию которая определяет верно ли что число N - совершенное, т.е. равно сумме своих делителей, меньших его самого
Гость
Ответ(ы) на вопрос:
Гость//Другой вопрос где найти такое число.
//Pascal ABC.NET v3.0 сборка 1111
function Abso(n:integer):boolean;
Var
i,k:integer;
begin
k:=0;
for i:=1 to n div 2 do
if n mod i=0 then k:=k+i;
if k=n then Abso:=true else Abso:=false;
end;
Не нашли ответ?
Похожие вопросы