Предмет: Информатика,
автор: 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.
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
Переделал с количеством (забыл про него)
Автор ответа:
0
Числа должны быть однозначные
Автор ответа:
0
Теперь однозначные
Автор ответа:
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.
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
Предмет: Астрономия,
автор: olesalebedeva338
Предмет: Обществознание,
автор: Kannao
Предмет: Алгебра,
автор: Poldi