Решение домашних заданий

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

1 января 0001 / Информатика / Комментарии: 0

паскаль написать прогу. анна и борис играют в игру загадай число. оба игрока записывают на бумаге число от 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.

Добавить комментарий