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

Question

Сибилла

13 апреля, 16:56

+5

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