Ввести несколько чисел. найти сумму чисел лежащих в интервале от 10 до 15
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
