A=4
D=C=3
C=B=9
B=A=4
Ответ: 4 4 9 3
// 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.
<u><em>Тестовое решение:</em></u>
Количество бросков кубика: 10000
Результат бросания кубика
1 1704
2 1665
3 1659
4 1631
5 1663
6 1678
Число <span>100101100 переводится как 9+6 получается 15
</span>
var
z, y, x: Integer;
begin
Write ('Введите целые числа z, y, x: ');
ReadLn (z, y, x);
Writeln ('Результат = ', (z + y * 3) / (x + z));
ReadLn;
end.