Инопланетная неделя на разных планетах длительность года разная, а значит и рабочая неделя там тоже может быть не семидневной. известно, что длительность недели на некой далекой планете составляет x дней, также известно, что сейчас на этой планете день недели под номером d. определите, какой день недели был на далекой планете k дней назад. формат входных данных три целых числа: x - длительность недели на некой далекой планете (1 < x < 1000) d - номер текущего дня недели (1 < d < x) k - количество дней, которые со дня начало отсчета (1 < k < 109) формат выходных данных целое число: номер дня в недели для искомого дня примеры входные данные выходные данные 3 1 4 3

Давай будем 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 < 1) then

      d:=x; // Переходим на предыдущую неделю, если необходимо

  end;

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

end.

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

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

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

П2 -> П1 -> П0

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

ИП1 - /-/ ИП0 +

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

x=0 28 ИП0 С/П

На индикаторе номер нужного дня.

Решение, задачи "Даны действительные числа 1,2,…70. Вывести последовательность 2,3,…,70,1".  см. Файл.
P.S. Решение на указателях. 

gcc: 4.8.1

Исходные данные: 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

После сдвига:
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 1

Не очень корректно объяснили, но если правильно вас понял:
 Program G;
 Var n, z, m, p: integer;
 Begin 
  z:=0;
  p:=0; 
 m:=0; 
 Writeln('Введите число n. Число 9999 завершает цикл.'); 
 Readln(n); 
 While n<>9999 do 
  Begin   
   If n=0 then inc(z);   
    else if n>0 then inc(p);   
    else inc(m);   
   Writeln('Введите число');   
   Readln(n); 
  End; 
 Writeln('Было введено ', z, ' нулей.'); 
 Writeln('Было введено ', p, ' положительных чисел.'); 
 Writeln('Было введено ', m, ' отрицательных чисел.');  
 Readln;
 End.