Напишите логическую функцию которая определяет верно ли что число N - совершенное, т.е. равно сумме своих делителей, меньших его самого

Ответы:

Kristina Sergeenko

13-11-2011 15:44

//Другой вопрос где найти такое число.//Pascal ABC.NET v3.0 сборка 1111function 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;

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Ануш Шевчук

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Напишите логическую функцию которая определяет верно ли что число N - совершенное, т.е. равно сумме своих делителей, меньших его самого» от пользователя Ануш Шевчук в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!