| Код |
var
left: integer;
i,k: integer;
begin
left:=50; { осталось 50 костяшек. }
while left>0 do { играем, пока есть костяшки }
for i:=1 to 2 do begin { если игроков больше, то не до 2-х, а до ... }
WriteLn('Осталось ',left,' костяшек.');
repeat
Write(i,'-й игрок, сколько костяшек возьмете? (1-5): ');
ReadLn(k); { игрок выбирает, сколько хочет взять }
if k<1 then WriteLn('Нельзя взять меньше одной костяшки');
if k>5 then WriteLn('Нельзя взять больше пяти костяшек');
if k>left then WriteLn('Нельзя взять больше костяшек, чем осталось');
until (k>=1) and (k<=5) and (k<=left); {задаем вопрос, пока не будет выбрано правильное кол-во}
left:=left-k; { убираем выбранные костяшки из кучи }
if left=0 then WriteLn('Игрок ',i,', Вы проиграли!');
end;
ReadLn; { пауза по окончании программы }
end.
|
|
