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

Question

Информатика

Стеван

14 января, 00:54

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

+2

Ответы (1)

Знаете ответ на вопрос?

Татиана · Answer 1

Var a, b, count:integer;

Begin

while (a<100) do

begin

b:=random (9) ;

writeln (b) ;

Inc (a, b) ;

Inc (count) ;

end;

writeln ('Кол-во: ', count) ;

End.