информатика
Составьте программу, которая находит сумму нечетных чисел и произведение четных чисел в диапазоне от 20 до 35.
Оставить ответОтвет №1
Var
i, s: integer;
p: longint;
begin
p := 1;
for i := 20 to 35 do
if i mod 2 = 0 then p := p * i
else s := s + i;
writeln(s, ' ', p);
end.
Знаете ответ?