Предмет: Информатика, автор: tirina01

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

Ответы

Автор ответа: Аноним
0
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.
Автор ответа: Аноним
0
Переделал с количеством (забыл про него)
Автор ответа: vladmor
0
Числа должны быть однозначные
Автор ответа: Аноним
0
Теперь однозначные
Автор ответа: vladmor
0
//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.
Похожие вопросы
Предмет: Русский язык, автор: abdraevasezim22
Предмет: Информатика, автор: azizmalinov345
Предмет: Алгебра, автор: Poldi