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

Question

Информатика

Вадимка

10 ноября, 22:30

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

+1

Ответы (1)

Знаете ответ на вопрос?

Петюка · 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.