Question

Язык pascal abc начались каникулы, и максим приехал в гости к бабушке и дедушке, но вовсе не в деревню, как вы, вероятно, подумали. бабушка и дедушка максима живут в культурном городе с легендарно плохой погодой — тут часто идет дождь.вот и сейчас стоило максиму выйти из здания вокзала, как начался ливень. зонтик, согласно всем законам подлости, лежит у него на дне чемодана, и лезть за ним совсем не хочется. да и вот же — совсем рядом есть автобусная остановка, под которой можно укрыться от дождя. нужно всего лишь перейти улицу, и все! «не бывает все так просто», — пришло в голову максиму. и действительно — не бывает.дело в том, что на улице, которая отделяет максима от остановки, меняют асфальт. старый слой асфальта уже сняли (там теперь ямы, поэтому пройти там невозможно), и теперь по улице, приближаясь к максиму, со скоростью v2 м/мин мужественно ползет асфальтоукладчик, оставляя за собой новый, аккуратно уложенный асфальт. правда, прежде, чем по новому асфальту можно будет ходить, он должен остывать t минут. асфальтоукладчик только что начал работу, поэтому весь асфальт за ним был залит еще вчера и уже успел остыть.конечно же, максим не хочет мокнуть, поэтому он пытается оказаться на другой стороне улицы как можно быстрее. он бегает со скоростью v1 м/мин. известна ему и ширина улицы — l м. максим может ходить вдоль улицы по тротуару сколько ему хочется. находиться на проезжей части он хочет как можно меньше, поэтому переходит улицу он только перпендикулярно. входные данные даны целые числа l, d, t, v1, v2 — ширина улицы, расстояние до асфальтоукладчика, время, которое остывает асфальт (в минутах), скорость максима и скорость асфальтоукладчика. (1 ≤ l ≤ 100, 1 ≤ d ≤ 100, 1 ≤ t ≤ 100, 1 ≤ v1 ≤ 100, 1 ≤ v2 ≤ 100). выходные данные выведите одно число — время в минутах, которое понадобится максиму, чтобы оказаться на другой стороне улицы. входные данные 4 9 3 2 1 выходные данные 6.0 входные данные 1 1 1 3 1 выходные данные 0.666666666667

Answer 1

Var L,D,T,v1,v2:integer;
tmin:real;
begin
writeln('Введите ширину улицы( в метрах ): ');
read(L);
writeln('Введите расстояние до асфальтоукладчика( в метрах ): ');
read(D);
writeln('Введите время остывания асфальта( в минутах ): ');
read(T);
writeln('Введите скорость Максима( м\мин ): ');
read(v1);
writeln('Введите скорость асфальтоукладчика( м\мин ): ');
read(v2);
tmin:=D/(v1+v2)+T;
write('Искомое время: ',tmin);
end.