Игра «100 спичек». Из кучки, первоначально содержащей 100 спичек, двое играющих поочередно берут по нескольку спичек: не менее одной и не более 10. Проигрывает взявший последнюю спичку.
вот что есть....но думаю не то
вконце не работает
| Код |
program cpi4ki;
uses crt;
var per, vtor, kol, num, min, max: integer; s : set of byte;
begin
repeat
clrscr;
num:=0;
writeln ('введите кол-во спичек для игры'); readln(kol);
writeln ('введите сколько спичек можно убрать минимум'); readln(min);
writeln ('введите сколько спичек можно убрать максимум'); readln(max);
s:=[min..max];
repeat
clrscr;
If (num mod 2)=0
then
begin
writeln ('ходит первый игрок');
writeln ('осталось ',kol,' спичек');
writeln ('сколько спичек вы хотели бы убрать?');readln(per);
If per in s then
begin
kol:=kol-per;
num:=num+1;
end
else
begin
clrscr;
writeln ('было введено не соответствуещее правилам кол-во');
writeln ('введите соответствующее правилам кол-во');
writeln ('');
writeln('Для продолжения нажмите клавишу');
readln();
end;
end
else
begin
clrscr;
writeln ('ходит второй игрок');
writeln ('осталось ',kol,' спичек');
writeln ('сколько спичек вы хотели бы убрать?');readln(vtor);
If vtor in s then
begin
kol:=kol-per;
num:=num+1;
end
else
begin
clrscr;
writeln ('было введено не соответствуещее правилам кол-во');
writeln ('введите соответствующее правилам кол-во');
writeln ('');
writeln('Для продолжения нажмите клавишу');
readln();
end;
end;
until kol<=1;
If (num mod 2)=0 then
begin
clrscr;
writeln('победа');
writeln('выйграл второй игрок');
end
else
begin
clrscr;
writeln('победа');
writeln('выйграл первый игрок');
end;
clrscr;
writeln ('если вы хотите сыграть еще раз нажмите любую клавишу');
writeln ('если вы хотите выйти нажмите Esc');
until readkey=#27;
end.
|
помогите |