На разных планетах длительность года разная, а значит и рабочая неделя там тоже может быть не семидневной. Известно, что длительность недели на некой далекой планете составляет X дней, а сейчас на этой планете день недели под номером D. Определите, какой день недели был на далекой планете K дней назад. Формат входных данных Три целых числа: X - длительность недели на некой далекой планете (1 < X < 1000) D - номер текущего дня недели (1 < D < X) K - количество дней, которые со дня начало отсчета (1 < K < 109) Формат выходных данных Целое число: номер дня в неделе для искомого дня входные данные выходные данные 3 1 4 3

1. var x: integer; begin readln(x); if x> 0 then writeln(x,' - положительное')   else if x< 0 then writeln(x,' - отрицательное')   else writeln(x,' = 0'); end. пример: -125 -125 - отрицательное2.var x,y,z,k: integer; beginreadln(x,y,z); if x> 0 then k: =k+1; if y> 0 then k: =k+1; if z> 0 then k: =k+1; writeln('количество положительных чисел = ',k); end.пример: -125  84  67количество положительных чисел = 23.var x: integer; beginreadln(x); if x mod 2=0 then writeln(x,' - чётное')  else writeln(x,' - нечётное'); end.пример: 125125 - нечётное

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var k: =3;   writeln('*** исходный массив ***');   var a: =matrrandom(k,6,-20,20);   a.println(4); writeln(4*a.colcount*'-');   var n: =readinteger('какую строку удалить (1-'+k+')? ');   assert(n.between(1,k),'введено неверное значение');   var r: =a.row(k-1); // последняя строка   setlength(a,k-1,a.colcount); // теперь строк на одну меньше   if n< k then begin       for var i: =n-1 to k-3 do           a.setrow(i,a.row(i+1));       a.setrow(k-2,r)       end;   writeln(4*a.colcount*'-'); a.println(4) end. примеры *** исходный массив ***   -8    3 -10  -5  -8  11   14  -5 -19  -6 -19 -15     0 -11  11    3  -6 -12 какую строку удалить (1-3)? 1   14  -5 -19  -6 -19 -15     0 -11  11    3  -6 -12 *** исходный массив ***   11 -14  -3  18  19  -9   -11  19    8  20 -19  19   -20  13    3 -13  13    1 какую строку удалить (1-3)? 3   11 -14  -3  18  19  -9   -11  19    8  20 -19  19