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

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

Задать свой вопрос
1 ответ
function Sov(a: integer): boolean;
var i, y: integer;
begin
     for i := 1 to (a - 1) do
         if (frac(a / i) = 0) then
            y := y + i;
     result := (y = a);
end;
Маргарита Махиборода
необходимо написать функцию
Федеракин Руслан
Поправил =)
Дарина Синкритова
спасибо
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт