Задать вопрос Регистрация
Помочь другим

  • ввести несколько чисел. найти сумму чисел лежащих в интервале от 10 до 15

Ответы 1

  • var

      tmp, sum : integer;

    begin

      sum := 0;  

      while not eoln do

      begin

        read (tmp);

        if (tmp >= 10) and (tmp <= 15) then

          sum := sum + tmp;

      end;

      writeln (sum);

    end.

     

    • Автор:

      nelson
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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