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

Question

Информатика

Эва

20 ноября, 22:26

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

+2

Ответы (1)

Знаете ответ на вопрос?

Евгения · Answer 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.