Паскаль

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

Question

Харитон

26 марта, 17:36

+2

Ответы (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