Вопрос, который вызвал трудности

Pascal
Программа случайным образом генерирует однозначные числа (все числа вывести на экран). Эти числа последовательно суммируются. Определить количество чисел, когда их сумма превысила 100.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var
  a,s,c:integer;
Begin
  while s<=100 do Begin<br>  a:=random(10);
  write(a,' ');
  s:=s+a;
  c:=c+1;
  sleep(70);
  End;
  writeln;
  Write('Сумма этих чисел превысила 100 и равняется ',s,' а количество ',c);
End.

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var s:=0; var n:=0;
while s<=100 do begin<br>  var a:=random(10); print(a);
  s:=s+a; n:=n+1;
  end;
println;
println('количество чисел',n,' Сумма ',s);
end.