Смарт карточка ( Опции

[Cheburashka]

Мальчик Вася каждый день ездит на метро. Утром он едет в школу, а вечером того же дня, обратно из школы, домой. Для того, чтобы немного сэкономить, он покупает электронную смарт-карту на X поездок. Когда он хочет зайти в метро, он прикладывает карту к турникету. Если на карте осталось ненулевое количество поездок, то турникет пропускает Васю и списывает с карты одну поездку. Если же на карте не осталось поездок, то турникет не пропускает Васю, и он (Вася) вынужден купить на этой же станции новую карту на X поездок и вновь пройти через турникет.

Вася заметил, что в связи с тем, что утром метро переполнено, покупать новую карту утром накладно по времени, и он может опоздать в школу. В связи с этим он хочет понять: будет ли такой день, что с утра, поехав в школу, окажется, что у него на карточке ноль поездок.

Вася больше никуда на метро не ездит и поэтому заходит в метро только на станции около дома и на станции около школы.

Входные данные
Во входном файле INPUT.TXT содержится ровно 2 строки. В первой содержится слово «School» или «Home» в зависимости от того, где первый раз Вася купил карточку на X поездок. Во второй строке содержится натуральное число X, 1 ≤ X ≤ 1000.

Выходные данные
В выходной файл OUTPUT.TXT следует вывести «Yes», если будет такой день, что утром у Васи на карточке окажется ноль поездок и «No» в противном случае.

Вот такая вот задачка)) Можете разъяснить как её решить?

[Cheburashka]

В принципе понятно но у меня она с таким решением не проходит((
Я её чуть-чуть по другому сделал у меня она застрявает на 10 тесте((

program N_22;
  var X:longint;
      S:string;
Begin
  assign (input,'input.txt');
  reset (input);
  assign (output,'output.txt');
  rewrite (output);
  Readln (S);
  Read (X);
  if S='School' then Inc(x);
  If X=1 then Write ('Yes')
            else if Odd(X) then Write('No') else Write('Yes')
End. 

Сообщение отредактировано: Сергей Меркурьев - 11.05.2009 15:23

[Lapp]

она застрявает на 10 тесте

К сожалению, условие задачи сформулировано не лучшим образом, что порождает неверное толкование.. Дело в том, что надо понимать так, что Вася продолжает покупать карточки с тем же самым количеством поездок. И в этом случае, если Х нечетно, то ему, бедняге, гарантировано придется (хотя и через раз) покупать карту утром. Если же Х четно, то все зависит от того, где была куплена первая карта - если в школе, то ему повезло, если дома - я ему не завидую..))

Таким образом, верное решение таково:

  if Odd(x) or (s='Home') then Write(f,'Yes') else Write(f,'No');

Вот так.
Извиняюсь, что сначала повелся на на эту неточность формулировки..