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.
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.