Question

Паскаль, цикл while, срочно!!
Запрашивать числа до тех пор пока их сумма не станет >=100,вывести количество чисел ​

Answer 1

var a,b,c:integer;

begin

b:=0;

while b<=100 do

begin

readln(a);

b+=a;

c+=1;

end;

write(c);

end.