Паскаль

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

Question

Никитка

30 марта, 13:11

+5

Ответы (1)

Знаете ответ?

Ареф · Answer 1

Var i, b, c:integer;

begin

for i:=1 to 10 do begin

readln (b) ;

if (b>10) and (b<15) then c:=c+b;

end;

writeln (c) ;

end.

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