Задание:
Паскаль написать прогу. Анна и борис играют в игру загадай число. Оба игрока записывают на бумаге число от 1 до 6. Затем бросают кубик, н 7 а гранях которогонарисованны точки в соответствии 1 2 3 4 5 6. Выигрывает тот игрок, чье число оказывается ближе к точке, выпавшей на кубике. Если анна загадала 3, борис загадас 6, а выпало 4 анна выиграла. Если анна загадала 2 борис 4 выпало 3 невыиграл никто. Сколько раз выиграл каждый из них.
Решение:
Вот, сначала ввести числа Анны и Бориса, а потом кол-во бросков=) 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.
Знаете другой ответ?