Pascal Программа случайным образом генерирует однозначные числа (все числа вывести **...

Question

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

Answer 1

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.

Comments

Переделал с количеством (забыл про него)

---

Числа должны быть однозначные

---

Теперь однозначные

Answer 2

//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.