Question

Помогите, пожалуйста Составьте программу, вычисляющую произведение чётных двузначных чисел. В паскаль

Answer 1

var i: integer;

   p: real;

   

begin

 p:=1;

 for i:=10 to 99 do

 if i mod 2=0 then p:=p*i;

 write ('произведение равно: ',p);  

end.

Answer 2

Конечно, вот пример программы на Pascal, которая вычисляет произведение чётных двузначных чисел:

pascalCopy code
program MultiplyEvenNumbers;

var
  i, product: integer;

begin
  product := 1;

  for i := 10 to 98 do
  begin
    if (i mod 2 = 0) then
      product := product * i;
  end;

  writeln('Product of even two-digit numbers: ', product);
end.

Эта программа использует цикл for, чтобы перебрать все числа от 10 до 98 (включительно) и проверяет, является ли текущее число чётным (проверка с помощью оператора модуля %). Если число чётное, то оно умножается на текущее значение переменной product. В конце программы, будет выведено произведение чётных двузначных чисел.