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

Question

Информатика

Тауфик

15 августа, 04:09

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

+1

Ответы (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.