Question

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

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.

Answer 2

я решила уже сама 10 ноября 2016