Два бегуна тренируются на кольцевой дорожке легкоатлетического стадиона длиной 400 метров. Они начинают бег из одной точки и бегают по заданиям тренера указанное число минут с указанной скоростью (под скоростью понимается количество метров, которое спортсмен пробегает по дорожке за минуту). Требуется определить расстояние, на котором окажутся бегуны друг от друга в конце тренировки (расстоянием называется длина более короткой части дуги дорожки между спортсменами).

Question

Информатика

Леонтинка

4 апреля, 13:11

Два бегуна тренируются на кольцевой дорожке легкоатлетического стадиона длиной 400 метров. Они начинают бег из одной точки и бегают по заданиям тренера указанное число минут с указанной скоростью (под скоростью понимается количество метров, которое спортсмен пробегает по дорожке за минуту). Требуется определить расстояние, на котором окажутся бегуны друг от друга в конце тренировки (расстоянием называется длина более короткой части дуги дорожки между спортсменами).

+4

Ответы (1)

Знаете ответ на вопрос?

Жеша · Answer 1

Var

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.