Question

Подсчитать произведение всех четных чисел от 1 до n (Паскаль)

Answer 1

Для подсчета произведения всех четных чисел от 1 до n в Паскале, вы можете использовать цикл. Вот пример кода на языке Pascal:

program ProductOfEvens;

var
  n, i: Integer;
  product: Int64; // Используйте Int64 для предотвращения переполнения

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

// Инициализируйте произведение единицей, так как умножение на единицу не изменит результат
  product := 1;

// Вычислите произведение четных чисел от 2 до n
  for i := 2 to n do
  begin
    if i mod 2 = 0 then
      product := product * i;
  end;

// Выведите результат
  writeln('Произведение всех четных чисел от 2 до ', n, ': ', product);

readln; // Для того чтобы консольное окно не закрывалось сразу
end.

В этом примере программа запрашивает у пользователя значение n, затем использует цикл для умножения всех четных чисел от 2 до n и выводит итоговый результат. Убедитесь, что ваша среда разработки Pascal поддерживает тип данных Int64, чтобы избежать переполнения при работе с большими значениями произведения.