Информатика, вопрос задал fkdkdvvdhs , 9 лет назад

найти сумму всех двухзначных четных натуральных чисел

Ответы на вопрос

Ответил archery
0
var
    i, s: integer;

begin
    s := 0;
    for i := 10 to 99 do
        if i mod 2 = 0 then
            s := s + i;
    writeln(s);
end.
Новые вопросы