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

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

Задать свой вопрос
1 ответ
//Другой вопрос где отыскать такое число.
//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;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт