Question

Напишите, пожалуйста, программу на языке Pascal ABC!!! Вводится последовательность из N целых положительных элементов. Подсчитать количество совершенных чисел в последовательности. Для определения совершенного числа создать функцию.

Answer 1

function f(x:longint):boolean;

var i,k:longint;

begin

for i:=1 to x div 2 do

if x mod i=0 then k+=i;

if k=x then f:=true else f:=false

end;

var i,n,k,ans:longint;

begin

read(n);

for i:=1 to n do

begin

read(k);

if f(k) then ans+=1

end;

write(ans)

end.

Answer 2

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

Вот программа на языке Pascal ABC, реализующая данную задачу:

pascalCopy code
program PerfectNumbers;

// Функция для проверки, является ли число совершенным
function IsPerfectNumber(num: Integer): Boolean;
var
  sum, divisor: Integer;
begin
  sum := 0;
  for divisor := 1 to num - 1 do
  begin
    if num mod divisor = 0 then
      sum := sum + divisor;
  end;
  IsPerfectNumber := sum = num;
end;

var
  N, i, number, perfectCount: Integer;
begin
  Write('Введите количество элементов в последовательности (N): ');
  Readln(N);

  perfectCount := 0;

  Writeln('Введите последовательность из ', N, ' целых положительных чисел:');
  for i := 1 to N do
  begin
    Readln(number);
    if IsPerfectNumber(number) then
      Inc(perfectCount);
  end;

  Writeln('Количество совершенных чисел в последовательности: ', perfectCount);
end.

Программа запрашивает у пользователя количество элементов в последовательности (N) и затем просит ввести саму последовательность целых положительных чисел. После этого она подсчитывает количество совершенных чисел в этой последовательности и выводит результат на экран.