Question

Буду признательна за помощь! Нужно написать программу на Паскале ABC 1. Вводится последовательность целых чисел, 0 -конец последовательности. Определить, содержит ли последовательность хотя бы одно совершенное число. Для определения совершенного числа создать функцию. Заранее спасибо!

Answer 1

function isPerfect(n: integer): boolean;

begin

 if n > 1 then

 begin

   var sum := 0;

   for var i := 2 to Trunc(Sqrt(n)) do

     if n mod i = 0 then

       sum += (i + n div i);

   result := (sum + 1 = n)

 end

end;

begin

 var n: integer;

 var contain := False;

 repeat

   Read(n);

   if isPerfect(n) then contain := True

 until n <> 0;

 Print(contain);

end.

Answer 2

Конечно, я могу помочь написать программу на Паскале ABC для решения вашей задачи. Вот код:

arduinoCopy code
program PerfectNumber;

function IsPerfectNumber(n: integer): boolean;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to n - 1 do
  begin
    if n mod i = 0 then
      sum := sum + i;
  end;
  IsPerfectNumber := sum = n;
end;

var
  num: integer;
  hasPerfect: boolean;

begin
  hasPerfect := false;
  writeln('Введите последовательность целых чисел, закончив нулем:');
  repeat
    readln(num);
    if num <> 0 then
    begin
      if IsPerfectNumber(num) then
      begin
        hasPerfect := true;
        writeln('Найдено совершенное число: ', num);
      end;
    end;
  until num = 0;
  if not hasPerfect then
    writeln('Совершенное число не найдено');
end.

В данном коде используется функция IsPerfectNumber, которая проверяет, является ли число совершенным. Функция работает следующим образом: для каждого числа i от 1 до n - 1 проверяется, делится ли n на i без остатка. Если делится, то i добавляется к переменной sum. В конце функция возвращает значение sum = n.

В основной части программы считывается последовательность целых чисел, пока не будет введен 0. Для каждого числа вызывается функция IsPerfectNumber, и если она возвращает true, то выводится сообщение о том, что было найдено совершенное число. Если совершенное число не найдено, выводится соответствующее сообщение.

Надеюсь, это поможет вам решить задачу!