Два бегуна тренируются на кольцевой дорожке легкоатлетического стадиона длиной 400 метров. они начинают бег из одной точки и бегают по тренера указанное число минут с указанной скоростью (под скоростью понимается количество метров, которое спортсмен пробегает по дорожке за минуту). требуется определить расстояние, на котором окажутся бегуны друг от друга в конце тренировки (расстоянием называется длина более короткой части дуги дорожки между спортсменами).
t,v1,v2,x:integer;
begin
write('Длительность тренировки в мин.: ');
readln(t);
write('Скорость 1-го и 2-го (в м/мин): ');
readln(v1,v2);
x:=abs(v1-v2)*t;
x:=x mod 400;
if x>200 then x:=400-x;
writeln('Расстояние между ними в конце тренировки: ',x)
end.