Cоставить программу, моделирующую бросание кубика для игры в кости произвольное число раз и подсчитывающую число выпадений каждой грани.
Cоставить программу, моделирующую бросание кубика для игры в кости произвольное число раз и подсчитывающую число выпадений каждой грани.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1073
var
i,n,p:integer;
k:array[1..6] of integer;
begin
Randomize;
Write('Количество бросков кубика: '); Read(n);
for i:=1 to 6 do k[i]:=0;
for i:=1 to n do begin
p:=Random(6)+1;
k[p]:=k[p]+1
end;
Writeln('Результат бросания кубика');
for i:=1 to 6 do Writeln(i,k[i]:6)
end.
Тестовое решение:
Количество бросков кубика: 10000
Результат бросания кубика
1 1704
2 1665
3 1659
4 1631
5 1663
6 1678
Не нашли ответ?
Похожие вопросы