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

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

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

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

Var  a,s,c:integer;Begin  while s<=100 do Begin  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)beginvar s:=0; var n:=0;while s<=100 do begin  var a:=random(10); print(a);  s:=s+a; n:=n+1;  end;println;println('количество чисел',n,' Сумма ',s);end.