• программа суммирования четных значений от 600 до 988

Ответы 1

    1. program task31101860;
    2. var
    3.  Sum: integer;
    4. begin
    5.  for var i := 600 to 989 do
    6.    if i mod 2 = 0 then
    7.      Sum := Sum + i;
    8.  Writeln(Sum);
    9. end.

    Вывод: 154830

    • Автор:

      bozley
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years