Паскаль, жестко надо

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

Question

Мана

23 июля, 21:03

+3

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