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

Question

Информатика

Макар

27 февраля, 13:23

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

+4

Ответы (1)

Знаете ответ?

Корнейка · Answer 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.