• PASCAL ABC: Составьте программу вычисления суммы четных чисел в диапазоне от 1 до 100

Ответы 1

  • var I,s:integer;begins:=0; //сумматор обнуляем обязательноfor i:=1 to 100 doif i mod 2=0 then s:=s+i; //узнаем четное ли число и записываем его в нашу суммуwriteln('Сумма четных чисел равна ',s);end;все что после // (два слэша) можно удалить, так пишутся комментарии в программе
    • Автор:

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

Войти через Google

или

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

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

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