Паскаль написать прогу. анна и борис играют в игру загадай число. оба игрока записывают на бумаге число от 1 до 6. затем бросают кубик, н7 а гранях которого нарисованны точки в соответствии 1 2 3 4 5 6. выигрывает тот игрок, чье число оказывается ближе к точке, выпавшей на кубике. если анна загадала 3, борис загадас 6, а выпало 4 анна выиграла. если анна загадала 2 борис 4 выпало 3 невыиграл никто. сколько раз выиграл каждый из них.

Question

Информатика

Агафоклия

3 мая, 08:45

Паскаль написать прогу. анна и борис играют в игру загадай число. оба игрока записывают на бумаге число от 1 до 6. затем бросают кубик, н7 а гранях которого нарисованны точки в соответствии 1 2 3 4 5 6. выигрывает тот игрок, чье число оказывается ближе к точке, выпавшей на кубике. если анна загадала 3, борис загадас 6, а выпало 4 анна выиграла. если анна загадала 2 борис 4 выпало 3 невыиграл никто. сколько раз выиграл каждый из них.

+3

Ответы (1)

Знаешь ответ?

Аникита · Answer 1

Вот, сначала ввести числа Анны и Бориса, а потом кол-во бросков = )

var x, a, b, k, i, wa, wb: integer;

begin

readln (a, b);

readln (k);

for i : = 1 to k do

begin

x : = random (5) + 1;

writeln (x);

if ((abs (a - x) > abs (b - x))) then wa : = wa + 1;

if ((abs (a - x) < abs (b - x))) then wb : = wb + 1;

end;

if (wa > wb) then writeln ('Ann win!')

else

if (wb > wa) then writeln ('Boris win!')

else

writeln ('No win; ) ');

writeln (wa, ' - ', wb);

end.