46 lines
953 B
ObjectPascal
46 lines
953 B
ObjectPascal
// Èãðà "Ñïè÷êè"
|
|
const InitialCount=15;
|
|
|
|
var
|
|
/// Òåêóùåå êîëè÷åñòâî ñïè÷åê
|
|
Count: integer;
|
|
/// Êîëè÷åñòâî ñïè÷åê, êîòîðîå áåðåò èãðîê
|
|
Num: integer;
|
|
/// Íîìåð òåêóùåãî èãðîêà
|
|
Player: integer;
|
|
|
|
begin
|
|
Player := 1;
|
|
Count := InitialCount;
|
|
|
|
repeat
|
|
if Player=1 then
|
|
begin
|
|
var Correct: boolean;
|
|
repeat
|
|
write('Âàø õîä. Íà ñòîëå ',Count,' ñïè÷åê. ');
|
|
write('Ñêîëüêî ñïè÷åê Âû áåðåòå? ');
|
|
readln(Num);
|
|
Correct := (Num>=1) and (Num<=3) and (Num<=Count);
|
|
if not Correct then
|
|
writeln('Íåâåðíî! Ïîâòîðèòå ââîä!');
|
|
until Correct;
|
|
end
|
|
else
|
|
begin
|
|
Num := Random(1,3);
|
|
if Num>Count then
|
|
Num := Count;
|
|
writeln('Ìîé õîä. ß âçÿë ',Num,' ñïè÷åê');
|
|
end;
|
|
Count -= Num;
|
|
if Player=1 then
|
|
Player := 2
|
|
else Player := 1;
|
|
until Count=0;
|
|
|
|
if Player=1 then
|
|
writeln('Âû ïîáåäèëè!')
|
|
else writeln('Âû ïðîèãðàëè!');
|
|
end.
|