Напишите функцию, которая моделирует бросание двух игральных кубиков (на каждом м
Напишите функцию, которая моделирует бросание двух игральных кубиков (на каждом может выпасть от 1 до 6 очков). (Используйте генератор псевдослучайных
чисел)
Гость
Ответ(ы) на вопрос:
Гость // 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.
Тестовое решение:
(6,6)
(1,6)
(5,6)
(1,1)
(1,5)
(6,5)
(1,4)
(5,6)
(1,3)
(2,6)
Не нашли ответ?
Похожие вопросы