Question

Решить в pascal. Дано натуральное число n. Вычислить y=2*4*6...(2n) Все решения в интернете неверные, пишет ошибку. Желательно сделать скрин программы.

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(Range(2,2*ReadInteger('n='),2).Aggregate(BigInteger(1),(m,n)->m*n))
end.

Пример
n= 37
1891675820705153808241239602722999673157373132800000000

Answer 2

К сожалению, я не могу предоставить вам скриншот, так как моя текущая среда не позволяет это делать. Однако я могу предоставить вам код на Pascal, который вы можете скопировать и вставить в вашу среду разработки.

Вот пример программы на Pascal, которая вычисляет значение \( y = 2 \times 4 \times 6 \times \ldots \times (2n) \):

program CalculateY;

var
  n, i: integer;
  y: longint;

begin
  // Вводим значение n
  write('Введите значение n: ');
  readln(n);

// Проверяем, что n неотрицательное
  if n < 0 then
  begin
    writeln('Ошибка: n должно быть неотрицательным.');
    exit;
  end;

// Инициализируем переменную y
  y := 1;

// Вычисляем значение y
  for i := 1 to n do
  begin
    y := y * (2 * i);
  end;

// Выводим результат
  writeln('Результат вычислений: ', y);

end.

Обратите внимание, что программа вводит значение \( n \), затем проверяет, что \( n \) неотрицательное число, и затем использует цикл для вычисления значения \( y \). В конце программа выводит результат.

Убедитесь, что в вашей среде разработки Pascal код компилируется и выполняется корректно.