Напишите код, который вычисляет произведение четных чисел и сумму нечетных чисел в интервале от 1 до 10 на языке

Pchelka

10

Для решения данной задачи на языке PascalABC напишем следующий код:

pascal

program MultiplesAndSum;



var

  n: Integer;

  product, sum: Integer;



begin

  product := 1; // Инициализируем переменную произведения значением 1

  sum := 0;     // Инициализируем переменную суммы значением 0



  for n := 1 to 10 do // Проходим по числам от 1 до 10

  begin

    if n mod 2 = 0 then // Проверяем, является ли число четным

      product := product * n // Если число четное, умножаем его на переменную произведения

    else

      sum := sum + n; // Если число нечетное, добавляем его к переменной суммы

  end;



  writeln("Произведение четных чисел от 1 до 10: ", product);

  writeln("Сумма нечетных чисел от 1 до 10: ", sum);

end.

Объяснение:

- Мы создаем переменные `n`, `product` и `sum`, тип которых устанавливаем как `Integer`. Переменная `n` будет использоваться в цикле для прохода по числам от 1 до 10. Переменная `product` будет хранить произведение четных чисел, а переменная `sum` - сумму нечетных чисел.
- Затем мы инициализируем переменные `product` и `sum` значениями 1 и 0 соответственно.
- Далее используем цикл `for`, чтобы пройти по числам от 1 до 10. На каждой итерации проверяем, является ли `n` четным числом с помощью оператора `mod`, который возвращает остаток от деления. Если остаток от деления `n` на 2 равен 0, значит, число `n` четное, и мы умножаем его на переменную `product`. Если остаток от деления не равен 0, число `n` нечетное, и мы добавляем его к переменной `sum`.
- По завершении цикла выводим на экран значения переменной `product`, содержащую произведение четных чисел, и переменной `sum`, содержащую сумму нечетных чисел.

Таким образом, данный код позволит вычислить произведение четных чисел от 1 до 10 и сумму нечетных чисел в этом же интервале при выполнении программы.