Два игрока A и B бросают кубик и суммируют результаты бросков. Победителем объявляется...

Question

Два игрока A и B бросают кубик и суммируют результаты бросков. Победителем объявляется игрок, набравший первым объявленную сумму очков S. Напишите программу, определяющую победителя

Comments

Кубик просать программа должна или с клавы значения задавать?

---

бросать*

---

с клавы

---

Ничья может быть?

Answer 1

Var A,B:byte;
S,Sa,Sb:integer;
Begin
WriteLn('S = ');ReadLn(S);
Repeat
Write('A = ');ReadLn(A);
Sa:=Sa+A;
Write('B = ');ReadLn(B);
Sb:=Sb+B;
Until (Sa>=S)or(Sb>=S);
if (A>B) then WriteLn('Победил игрок A')
else WriteLn('Победил игрок B')
End.