Скласти програму для обчислення значення виразу G=50+48+46...+2

Question

Скласти програму для обчислення значення виразу G=50+48+46...+2

Answer 1

Var
    i, g: integer;

begin
    for i := 50 downto 2 do
        if i mod 2 = 0 then g := g + i;
    writeln(g);
end.