Я знаю только хрестик в углу и в системе
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
function Dice2():=Rec(Random(1,6),Random(1,6));
// тестовый пример - 10 бросков
begin
for var i:=1 to 10 do Writeln(Dice2)
end.
<u><em>Тестовое решение:</em></u>
(6,6)
(1,6)
(5,6)
(1,1)
(1,5)
(6,5)
(1,4)
(5,6)
(1,3)
(2,6)
1кигобайт,1000 байтов. 1байт, 1024бита, 1бит в учебнике все это есть полистай
В готовых домашних заданиях есть ответы)