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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.