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

Название: Вычисление произведения четных чисел и суммы нечетных чисел

Разъяснение: Для решения данной задачи на языке PascalABC, мы можем использовать цикл со счётчиком для перебора чисел от 1 до заданного интервала. Внутри цикла, мы будем проверять, является ли текущее число четным или нечетным, а затем добавлять его к сумме нечетных чисел или умножать на произведение четных чисел.

Пример использования:

pascal

program Вычисление_произведения_и_суммы;



var

  нижний_предел, верхний_предел, число, произведение, сумма: integer;

  

begin

  writeln("Введите нижний предел интервала:");

  readln(нижний_предел);

  

  writeln("Введите верхний предел интервала:");

  readln(верхний_предел);

  

  произведение := 1;

  сумма := 0;

  

  for число := нижний_предел to верхний_предел do

  begin

    if число mod 2 = 0 then

      произведение := произведение * число

    else

      сумма := сумма + число;

  end;

  

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

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



end.

Совет: Для понимания данной программы, важно понимать основные концепции языка PascalABC, такие как типы данных, операторы сравнения и циклы.

Задача на проверку: Напишите программу на PascalABC, которая вычисляет сумму квадратов всех чисел от 1 до 10 и выводит результат на экран.