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

Question

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

Comments

На каком языке писать? :D

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.