Експидиція починає підйом на гру з висоти 3000 м з початковою швидкістю 200м/год. через кожні 100 м швидкість підйому зменшується на 10% від швидкості за попередні 100м. розробіть програму, яка визначає: за скільки часу експедиція досягне висоти 4200 м. пояснення. змінна t - поточне значення часу підйому експкдиції, v - поточна швидкість експедиції, h - поточна висота знаходження експедиції

Var h,v,t,t1: real; i: integer; begin v: =200/60; // м/мин t: =0; h: =3000; writeln('   h   t'); for i: =1 to (4200-3000) div 100 do   begin   t1: =100/v;   t: =t+t1;   h: =h+100;   writeln(h: 4: 0,' ',t: 5: 1);   v: =v*0.9;   end; writeln(t: 5: 1,' мин'); end. результат:     h     t 3100 30.0 3200 63.3 3300 100.4 3400 141.5 3500 187.2 3600 238.1 3700 294.5 3800 357.2 3900 426.9 4000 504.4 4100 590.4 4200 686.0 686.0 мин