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