Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.03.2014, 22:43   #1
vadimmmm
Пользователь
 
Регистрация: 03.03.2014
Сообщений: 15
Вопрос Задачка из е-олимп №6276

Есть кучка из N камешков. Играют вдвоём. За один ход нужно взять не менее одного и не более M камешков. Проиграл тот, кто не смог сделать ход.

Сколько камешков взяли бы Вы, если расчитываете на выигрыш и ходите первым, или 0, если шансов на выигрыш нет?


Технические условия
Входные данные

Значения N и M (1 ≤ N, M ≤ 1000).

Выходные данные

Ответ к задаче.
vadimmmm вне форума Ответить с цитированием
Старый 03.03.2014, 23:15   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Если N mod (M+1) <> 0 выигрывает при оптимальной стратегии 1-ый, иначе - 2-ой
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 04.03.2014, 06:00   #3
009
Пользователь
 
Регистрация: 09.02.2014
Сообщений: 33
По умолчанию

Код:
var n,m:integer;
begin
read(n,m);
writeln(n mod (m+1));
end.
009 вне форума Ответить с цитированием
Старый 04.03.2014, 08:47   #4
vadimmmm
Пользователь
 
Регистрация: 03.03.2014
Сообщений: 15
Хорошо

Спасибо ребят, помогли)
vadimmmm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно Сергей Человек Фриланс 3 06.07.2009 19:30
Парни помогите!!срочно нужно решить в течении пару часов..завтра зачет!Парни помогите! razorl1ner Паскаль, Turbo Pascal, PascalABC.NET 0 01.06.2009 00:02