[supercat]

1 время= 1.81818187 расстояние до В= 72.7272720
muha na starte. ot parovoza do tocki B 45.4545441
2 время= 0.826446235 расстояние до В= 33.0578499
muha na starte. ot parovoza do tocki B 20.6611557
3 время= 0.375657380 расстояние до В= 15.0262947
muha na starte. ot parovoza do tocki B 9.39143372
4 время= 0.170753345 расстояние до В= 6.83013344
muha na starte. ot parovoza do tocki B 4.26883316
5 время= 7.76151493E-02 расстояние до В= 3.10460591
muha na starte. ot parovoza do tocki B 1.94037867
6 время= 3.52796130E-02 расстояние до В= 1.41118455
muha na starte. ot parovoza do tocki B 0.881990373
7 время= 1.60361882E-02 расстояние до В= 0.641447544
muha na starte. ot parovoza do tocki B 0.400904715
8 время= 7.28917681E-03 расстояние до В= 0.291567057
muha na starte. ot parovoza do tocki B 0.182229400
9 время= 3.31326178E-03 расстояние до В= 0.132530481
muha na starte. ot parovoza do tocki B 8.28315541E-02
10 время= 1.50602823E-03 расстояние до В= 6.02411330E-02
muha na starte. ot parovoza do tocki B 3.76507118E-02
11 время= 6.84558414E-04 расстояние до В= 2.73823366E-02
muha na starte. ot parovoza do tocki B 1.71139613E-02
12 время= 3.11162934E-04 расстояние до В= 1.24465171E-02
muha na starte. ot parovoza do tocki B 7.77907297E-03
13 время= 1.41437689E-04 расстояние до В= 5.65750757E-03


program forum
real t,l !t-время, l- расстояние до конечной точки
integer k ! k- счетчик свиданий паровоза с мухой
l=100
k=0
do while (l>=0)
k=k+1
t=l/(40+15) ! время до встречи
l=l-15*t ! расстояние до конечной точки в момент встречи
print *, k, ' время=',t, ' расстояние до В=',l
l=l-15*t ! муха опять на стартовой позиции. расстояние до конечной точки паровоза
print *, ' muha na starte. ot parovoza do tocki B ',l
end do
end program forum