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

Question

Иля

17 февраля, 16:55

+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.