В паскале сделать надо. Помогите пожалуйста, ребятки:*Автомобиль ехал несколько часов со...

Question

В паскале сделать надо. Помогите пожалуйста, ребятки:*
Автомобиль ехал несколько часов со скоростью V1 км/час, затем несколько часов
со скоростью V2 км/час. Значения времени и скорости вводятся с клавиатуры.
Сколько км он проехал? Какова его средняя скорость?

Answer 1

Var s1,s2,s3,v1,v2,v3,t1,t2 :integer;
begin
   writeln('введите время и скорость на первом этапе');
   readln(t1,v1);
   writeln('введите время и скорость на втором этапе');
   readln(t2,v2);
   s1=t1*v1;{км.проехал на первом этапе}
   s2=t2*v2;{км.проехал на втором этапе}
   s3=s1+s2;{всего проехал км.}
   v3=s3/t1+t2;{средняя скорость}
   writeln('всего проехал ',s3,' км. ' 'со средней скоростью ',v3,' км.')
end.