С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100.

Question

Иля

24 октября, 11:33

+2

Ответы (1)

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

Настуля · Answer 1

Var a, k, sum:integer;

begin

while (sum < 100) do

begin

readln (a) ;

k:=k+1;

sum:=sum+a;

end;

writeln (k) ;

end.