Встарой датской игре, положившей начало современной игре в кегли, в ряд вплотную друг к другу располагаются 13 деревянных кеглей. одним ударом шара можно сбить либо одну, либо две соседние кегли. игроки бросают поочерёдно по одному шару, а цель игры состоит в том, чтобы сбить последнюю кеглю. горный гном, с которым рипванвинкль играет эту партию, только сбил кеглю номер 2. рип должен выбрать одну из 22 возможностей: сбить одну из 12 кеглей или метнуть шар так, чтобы сбить любую из 10 пар соседних кеглей. как лучше поступить рипу, чтобы выиграть партию? предполагается, что оба игрока могут сбить любую кеглю или любую пару соседних кеглей и что каждая сторона располагает наилучшей стратегией.
Есть во многих языках программирования, зря не указали, какой Вам надо.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('День недели (1- Пн, 2- Вт, ... 7- Вс:');
Writeln(n<6?'Рабочий день':n=6?'Суббота':'Воскресенье')
end.
Примеры (предполагается без проверки корректность ввода)
День недели (1- Пн, 2- Вт, ... 7- Вс: 4
Рабочий день
День недели (1- Пн, 2- Вт, ... 7- Вс: 6
Суббота
День недели (1- Пн, 2- Вт, ... 7- Вс: 7
Воскресенье
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов
var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку
Writeln(s) // вывод...
end.
Пояснения.
a - массив с индексами от 0 до n-1, где n - число слов.
Срез a[:2] возвращает последовательность элементов массива 0 и 1.
Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при
Пример
А роза упала на лапу Азора
А роза на лапу Азора