Регистрация
Войти
Стать экспертом Правила
Информатика

Написать алгоритм для вычисления суммы нечетных чисел на отрезке от -30 до 45

ОТВЕТЫ
Var
  i, s: integer;
begin
  for i := -30 to 45 do
    if i mod 2 = 0 then s := s + i;
  writeln(s= , s);
end.
246
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам