1. Пешеход шел по пересеченной местности. Его скорость движения по равнине v1 км/ч, в гору - v2 км/ч и под гору - v3 км/ч. Время движения соответственно t1, t2 и t3 ч. Написать программу определяющую, какой путь прошел пешеход? 2. Написать программу, вычисляющую путь, пройденный лодкой, если ее скорость в стоячей воде v км/ч, скорость течения реки v1 км/ч, время движения по озеру t1 ч, а против течения реки - t2 ч.

Program Program1;

var

s, v1, v2, v3, t1, t2, t3:real;

begin

write ('Введите скорость движения по равнине: ') ;

readln (v1) ;

write ('Введите скорость движения в гору: ') ;

readln (v2) ;

write ('Введите скорость движения под гору: ') ;

readln (v3) ;

write ('Введите время движения по равнине: ') ;

readln (t1) ;

write ('Введите время движения в гору: ') ;

readln (t2) ;

write ('Введите время движения под гору: ') ;

readln (t3) ;

S:=t1*v1+t2*v2+t3*v3;

writeln ('Путь = ', S) ;

end.

Program Program2;

var

s, v, v1, t1, t2:real;

begin

write ('Введите скорость лодки в стоячей воде: ') ;

readln (v) ;

write ('Введите скорость течения реки: ') ;

readln (v1) ;

write ('Введите время движения по озеру: ') ;

readln (t1) ;

write ('Введите время движения против течения реки: ') ;

readln (t2) ;

S:=t1*v+t2 * (v-v1) ;

writeln ('Путь = ', S) ;

end.