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

Question

Информатика

Кима

26 октября, 21:43

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

+3

Ответы (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.