Question

Вычислить сумму чётных и произведение нечётных чисел в интервале от 1 до n. Программа Pascalabc.Спасибо)

Answer 1

Вот решение твоей задачки
ПС программу проверял. она отлично работает!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 2

Для вычисления суммы чётных чисел и произведения нечётных чисел в интервале от 1 до n в программе PascalABC можно использовать следующий код:

program SumAndProduct;
var
  n, i, sum, product: integer;
begin
  sum := 0;
  product := 1;
  
  write('Введите значение n: ');
  readln(n);
  
  for i := 1 to n do
  begin
    if i mod 2 = 0 then
      sum := sum + i
    else
      product := product * i;
  end;
  
  writeln('Сумма чётных чисел: ', sum);
  writeln('Произведение нечётных чисел: ', product);
end.

В этом коде мы используем переменные `sum` для хранения суммы чётных чисел и `product` для хранения произведения нечётных чисел. Затем мы запрашиваем у пользователя значение `n` и используем цикл `for` для перебора чисел от 1 до `n`. Внутри цикла мы проверяем, является ли текущее число чётным или нечётным с помощью оператора `mod`. Если число чётное, мы добавляем его к сумме `sum`, а если число нечётное, мы умножаем его на произведение `product`. В конце программы мы выводим значения `sum` и `product` на экран.

Пример работы программы:

Введите значение n: 10
Сумма чётных чисел: 30
Произведение нечётных чисел: 945

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