/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Matches.pas
45 строк
1 KB
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Игра "Спички" 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.