Question

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

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.