Помогите.через паскаль,линейное На участке длиной S1 автобус двигался со скоростью V1, на участке длиной S2 - со скоростью V2. Найти среднюю скорость движения автобуса на всем участке длиной S=S1+S2. контрольный пример: данн...
Помогите.через паскаль,линейное
На участке длиной S1 автобус двигался со скоростью V1, на участке длиной S2 - со скоростью V2. Найти среднюю скорость движения автобуса на всем участке длиной S=S1+S2.
контрольный пример:
данные 50,60,1,1
результат: 54.546
Ответ(ы) на вопрос:
Гость
Program z9; Var s1,s2,v1,v2,s:integer; t1,t2,v,t:real;Begin write('S1 = '); readln(s1); write('S2 = '); readln(s2); write('V1 = '); readln(v1); write('V2 = '); readln(v2); s:=s1+s2; t1:=s1/v1; t2:=s2/v2; t:=t1+t2; v:=s/t; writeln('Средняя скорость равна = ', v);End.
Не нашли ответ?
Похожие вопросы