Внеземная неделяНа разных планетах продолжительность года различная, а означает и рабочая

Ввод: X ^ D ^ K С/П.

П2 -gt; П1 -gt; П0

ИП2 ^ ИП0 / [x] ИП0 * -

ИП1 - /-/ ИП0 +

^ ИП0 / [x] ИП0 * -

x=0 28 ИП0 С/П

На индикаторе номер подходящего дня.

Давай будем K раз изменять наш текущий денек на "вчерашний", т.е. убавлять на 1. Если после еще одного такового уменьшения мы получили, что наш текущий денек стал равен 0, означает, мы теснее перебежали в последний денек предыдущей недели. Тогда мы разговариваем, что наш текущий денек равен X.

Схематично изобразил это на вложении 1.  

Код на PascalABC

var   x, d, k, // Числа из ввода

  i   : integer;

begin

  read(x, d, k); // Ввод чисел

  for i:=1 to k do // Будем равномерно идти на k дней вспять

  begin

    d:=d-1; // Идём на один денек назад

    if (d lt; 1) then

      d:=x; // Перебегаем на предшествующую неделю, если нужно

  end;

  writeln(d); // Выводим ответ

end.

--------------------------------------------------

Вложено решение как файл.