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

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

Question

Вильгельмина

30 октября, 13:03

+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