Question

Найти произведение совершенных чисел больших 100 (Паскаль): дана последовательность из N чисел, количество чисел вводится с клавиатуры. Числа выбираются из промежутка [ 10; 50 ] .

Answer 1

var n,z,x,i,s,pr: integer;

begin

pr := 1;

readln(n);

for z:= 1 to n do  

begin

write('Введите натуральное число x=');

readln(x);

if (x>100) then  

begin

s:=0;

for i:=1 to x div 2 do

if x mod i = 0 then s:=s+i;

if s=x

then pr:= pr * x;

end;

end;

write(pr);

end.

Answer 2

Для нахождения произведения всех совершенных чисел больше 100, вам нужно выполнить следующие шаги в Pascal:

1. Запросите количество чисел N с клавиатуры.
2. Создайте переменную для хранения произведения найденных совершенных чисел и установите ее в 1.
3. В цикле вводите N чисел с клавиатуры, проверяйте каждое число на совершенство и, если число больше 100 и является совершенным, умножайте его на текущее значение переменной произведения.
4. Выведите итоговое произведение.

Вот пример кода на Pascal:

pascalCopy code
program PerfectNumbers;

var
  N, i, num, product: integer;

function IsPerfectNumber(num: integer): boolean;
var
  sum, divisor: integer;
begin
  sum := 1;
  for divisor := 2 to num div 2 do
  begin
    if (num mod divisor) = 0 then
      sum := sum + divisor;
  end;
  IsPerfectNumber := (sum = num);
end;

begin
  product := 1;

  write('Введите количество чисел N: ');
  readln(N);

  for i := 1 to N do
  begin
    write('Введите число: ');
    readln(num);

    if (num > 100) and IsPerfectNumber(num) then
      product := product * num;
  end;

  writeln('Произведение совершенных чисел больше 100: ', product);

end.

Этот код позволяет ввести N чисел, проверяет каждое из них на совершенство и больше ли оно 100, и затем вычисляет произведение совершенных чисел.