ИНФОРМАТИКА ЯЗЫК ПРОГРАММИРОВАНИЯ ЛЮБОЙ

pascal

Объяснение:

var

 k, n, s: integer;

begin

 Write('Через сколько метров расположены остановки друг от друга (К): '); ReadLn(k);

 Write('Сколько Света метров (N): '); ReadLn(n);

 while (s < n) do s := s + k;

 if (s - n) <= (n - s + k) then s := s - n else s := n - s + k;

 WriteLn('Расстояние до ближайшей остановки равно ', s, ' метров.');

end.