игра 100 спичек

[Igorek0886]

нужна игра 100 спичек на турбо паскале 7.0
если возможно то и с описанием.пишу курсовой.
вот правила игры:
Игра «100 спичек». Из кучки, первоначально содержащей 100 спичек, двое играющих поочередно берут по нескольку спичек: не менее одной и не более 10. Проигрывает взявший последнюю спичку.
помогите кто может!

[Serge_Bliznykov]

Игра с компьютером или на двух человек?
И что, собственно не получается?!!

в этой простой игре выиграет всегда второй! (ну, если будет правильно играть, разумеется!!)
надо оставлять противнику следующую последовательность (число+11):
12 23 34 45 56 67 78 89

[IIPOTUBBCEX]

Вот возможный вариант написания подобной игры для двух человек, извеняюсь за такой объемный алгоритм, но я с паскалем ток 3 дня работаю и еще плохо разбираюсь буду рад если ктонить приведет какойнить краткий пример


program cpi4ki;
uses crt;

var per, vtor, kol, num, ot, da: integer; s : set of byte;

begin
repeat
clrscr;
num:=0;
writeln ('введите кол-во спичек для игры'); readln(kol);
writeln ('введите сколько спичек можно убрать минимум'); readln(ot);
writeln ('введите сколько спичек можно убрать максимум'); readln(da);
s:=[ot..da];
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.

[Igorek0886]

игра с компьютером

[Igorek0886]

спасибо просто мне курсовой надо писать на эту тему.
проверил вроде все работает