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

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.

Comments

//PascalABC.Net 3.1.0.1200
begin
var a := ArrGen(35 - 20 + 1, x -> x + 1, 19);
Println(a);
Println(a.Where(x -> x mod 2 <> 0).Sum);
Println(a.Where(x -> x mod 2 = 0).Aggregate(1, (p, x)-> p * x));
end

---

да не важно