Составьте программу, которая обретает сумму нечетных чисел и творение четных чисел

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

Переменная от 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.