Составьте программу, которая находит сумму нечетных чисел и произведение четных чисел в диапазоне от 20 до 35.
Составьте программу, которая находит сумму нечетных чисел и произведение четных чисел в диапазоне от 20 до 35.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы