Question

Gracz rzuca 2 kośćmi. Jeśli suma oczek wynosi odpowiednio
2,3,12 -grający przegrywa,
7 lub 11 -wygrywa,
4,5,6,8,9,10
rzuca jeszcze raz.
Napisz program w freepascalu wczytujący 2 liczby stanowiące liczbę wyrzuconych
oczek i drukujący odpowiedni komunikat (wygrałeś, przegrałeś, rzucasz
jeszcze raz).

Answer 1

Procedure Throw;
Var O1, O2: Integer;
Begin
 O1 := Random(12)+1;

 O2 := Random(12)+1;
 Case O1+O2 Of
  2, 3, 12: Writeln('Przegrales!');
  7, 11 : Writeln('Wygrales!');
  else Throw;
 End;
End;

 

Begin

 Randomize;

 Throw;
End.