< >

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

Ответы

Ответ дал: emblerik
0

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.

 

Похожие вопросы
Английский язык
2 года назад
Преведите предложения в Past Progressive Tense. 1 В прошлое воскресенье я ходил с друзьями в кино. 2 На данный момент он слушает музыку и делает уроки. 3 Я спала когда мама пришла домой. 4 -Что
Русский язык
2 года назад
Найди предложения со следующими характеристиками: Повествовательное невосклицательное предложение, в предложении есть однородные сказуемые. Отметь их.Берёзы, клёны, липы радовали глаз своим осенним
Биология
7 лет назад
заполните пожалуйста таблицу
История
7 лет назад
Какие факты свидетельствуют о том, что Соединенные Штаты превратились в державы мирового значения.Сформулируйте общий вывод.
Геометрия
10 лет назад
подскажите пожалуйста верны ли утверждения. 1) длина окружности радиуса R равна пR. 2) длина окружности радиуса R равна 2пR. 3) если расстояние от центра окружности до прямой меньше диаметра
Химия
10 лет назад
1. Составить уравнения реакций, не забудьте поставить коэффициенты! а) взаимодействия натрия с хлором, фосфором (III). б) взаимодействия меди с углеродом (IV), хлором (I). в) взаимодействия алюминия
Биология
10 лет назад
У львиного зева красная окраска цветка не полностью доминирует над белой. Нормальная форма цветка полностью доминирует пилорической. Какое потомство получится от скрещивания двух дигетерозиготных
Биология
10 лет назад
Родители имеют II (гетерозигота) и IV группы крови. Определите генотипы родителей по группе крови. Укажите возможные генотипы и фенотипы детей по группе крови. Составьте схему решения задачи.