Определить, через какое время встретятся два поезда, движущиеся из пунктов a и b навстречу друг другу. известно, что скорость поездов 40 и 60 km/ч, а расстояние ab — 120 -Pascal(Паскаль)

function GetTime(v1,v2,S: real): real;
begin
  GetTime := S/(v1+v2);
end;
 
begin
  writeLn('t = ',GetTime(40,60,120):10:2);
end;

Leave a Comment

− 3 = 3