Question

Написать программу для pascаl: вычислить произведение всех четных чисел от 50 до 100

Answer 1

Var
  i:integer;
  p:biginteger;
begin
  p := 1;
  for i := 50 to 100 do
    if i mod 2 = 0 then p := p * i;
  writeln(p);  
end.

Тестовое решение:
3289645422013119007424590987918048021708800000000

Answer 2

Программа на Pascal для вычисления произведения всех четных чисел от 50 до 100

Вот пример программы на Pascal, которая вычисляет произведение всех четных чисел от 50 до 100:

program CalculateProduct;

var
  i: integer;
  product: longint;

begin
  product := 1;

for i := 50 to 100 do
  begin
    if i mod 2 = 0 then
      product := product * i;
  end;

writeln('Произведение всех четных чисел от 50 до 100: ', product);
end.

В этой программе используется цикл `for`, который перебирает все числа от 50 до 100. Если число является четным (т.е. остаток от деления на 2 равен 0), то оно умножается на текущее значение переменной `product`. В конце программы выводится результат - произведение всех четных чисел от 50 до 100.

Примечание: Программа использует переменные `i` для итерации по числам и `product` для хранения произведения. Также обратите внимание, что в Pascal оператор деления целочисленного типа обозначается как `div`, а оператор остатка от деления - `mod`.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.