Pascal Программа случайным образом генерирует однозначные числа (все числа вывести
Pascal
Программа случайным образом генерирует однозначные числа (все числа вывестина экран). Эти числа последовательно суммируются. Определить количество чисел, когда их сумма превысила 100.
Гость
Ответ(ы) на вопрос:
Гость //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.
Не нашли ответ?
Похожие вопросы