Question

Дорога в школу в байттауне, как и во многих других городах есть метро. оно представляет собой n станций, расположенных по кругу. станции пронумерованы от 1 до n по часовой стрелке, станция номер 1 находится между станциями с номерами n и 2. в этом замечательном городе есть одна школа, в которой учатся все городские дети. эта школа находится на станции номер 1. каждое утро городские дети заходят в метро, выбирают в какую сторону им ехать, садятся в поезд и едут в школу. многие дети хотели бы знать, в какую сторону им ехать, чтобы проехать минимальное количество станций, прежде чем они попадут в школу. так например, если в городе 5 станций, то школьнику ивану, живущему на станции номер 4, достаточно проехать 2 остановки, и вот он уже в школе, а марии, живущей на 2 станции, достаточно проехать одну остановку. ваша – по номеру станции, на которой живёт школьник, вывести количество остановок, которое ему придёт проехать по пути в школу

Answer 1

Var c,b,e,n,a:integer; 
begin
write('введите количество остановок => ');
readln(a);
a:=a+1;
write('на какой остановке живёт ребёнок => ');
readln(b);
c:=0; n:=0;
for c:=1 to b do begin;
e:=e+1;
end;
for c:=a downto b do begin
n:=n+1;
end;
if (e<n) then writeln('кол-во остановок => ',e-1) else writeln('кол-во остановок => ',n-1); 

end.

Answer 2

Var
n,s:integer;{объявляем переменные}
begin
  readln(n,s);
  if (n div 2) >= s then writeln(s-1)
  else writeln(n-s+1);
end.
Конечно костыль, но ничего лучше я не придумал