Составьте программу, которая находит сумму нечетных чисел и произведение четных чисел в диапазоне от 20 до 35.

Составляем цикл

Переменная от 20 до 35 for i:=1 to 10 do

Далее проверяем деление чисел на 2 (четные)

Складываем их и выводим ответ, если не делится на 2, то умножаем нечетные числа и выводим ответ.

Используем условия If, else, then

Составим программу на языке программирования Pascal

var a, b, i:integer;

begin

a:=0;

b:=1;

for i:=20 to 35 do

if i mod 2=0 then a:=a+i else b:=B*i;

write (a,' ', b)

end.