TemaZpro
Program z1; Var itog,v,w,s:real; begin writeln('Введите скорость пассажирского поезда'); readln(v); writeln('Введите скорость скоростного поезда "Сапсан"'); readln(w); writeln('Введите расстояние от Москвы до Ст. Петербурга'); readln(s); itog:=w*s/(v+w); writeln('"Сапсан" проехал до встречи с пассажирским поездом: ',itog); end.
Answers & Comments
Var
itog,v,w,s:real;
begin
writeln('Введите скорость пассажирского поезда');
readln(v);
writeln('Введите скорость скоростного поезда "Сапсан"');
readln(w);
writeln('Введите расстояние от Москвы до Ст. Петербурга');
readln(s);
itog:=w*s/(v+w);
writeln('"Сапсан" проехал до встречи с пассажирским поездом: ',itog);
end.