zadach241.BAS

{* Задача241 *}

REM basic

' Мощность радиоактивного излучения рассчитывается по формуле: Q=Qo*exp(-L*t)
' где Qo - начальная мощность излучения, L=Ln(2)/P, P - период полураспада.
' Определить, через какое количество дней мощность радиоактивного излучения
' одного из атомов углерода достигнет безопасного для человека
' значения 0.1 рентгена в час, при Qo = 2.5 рентген/ч и Р = 8 дней.


CLS
Qo = 2.9
P = 8
L = LOG(2) / P

Do
     t = t + 1                  
     Q = Qo * EXP(-L * t)
Loop Until Q < .1
       
        PRINT "t ="; t; "дней"
End