Question

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

Answer 1

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var 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.

Answer 2

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.