Ввести длину пути и время движения двух автобусов. Определить скорость какого автобуса...

Question

Ввести длину пути и время движения двух автобусов. Определить скорость какого автобуса меньше. Подсчитать за какое время он проедет такое же расстояние если увеличить его скорость на 10 едениц. Зарание спасибо!

Answer 1

Var
rast, t, speed: real;
begin
write('Dlina puti = ');
readln(rast);
write('Vremya = ');
readln(t);
speed := rast/t;
writeln('Skorost = ', speed:3:2);
t := rast/(speed+10);
writeln('Esli skorost na 10 bolshe, to vremya = ', t:3:2);
readln;
end.