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

Question

Елена 09.25.18

Решено

134

ОТВЕТЫ

var a,k,sum:integer;
begin
while (sum < 100) do
begin
     readln(a);
     k:=k+1;
     sum:=sum+a;
end;
writeln(k);
end.

26

Отв. дан 2021-11-14 00:00:00 Агния