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

Есть ответ
17.12.2022
387

Ответ


var

  tmp, sum : integer;

begin

  sum := 0;  

  while not eoln do

  begin

    read (tmp);

    if (tmp >= 10) and (tmp


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.