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

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

Задать свой вопрос
1 ответ

var

Sum: integer;

begin

for var i := 600 to 989 do

  if i mod 2 = 0 then

    Sum := Sum + i;

Writeln(Sum);

end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт