{* Задача240 *}

REM basic

' Плотность воздуха уменьшается с высотой по формуле r = r0*exp(-h*z)
' Принимая r0=1.29 и z = 1.25*10^-4, рассчитать на какой высоте плотность
' воздуха станет ниже 0.5 кг/м3.


CLS
r0 = 1.29
z = 1.25 * 10 ^ -4

Do
     h = h + 1                 
     r = r0 * EXP(-h * z)
Loop Until r < .5
       
        PRINT "h ="; h; "м"

End