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

1

Ответы и объяснения

2013-04-04T16:19:55+00:00

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.