zadach246.BAS

{* Задача246 *}

REM basic

' В первый день тренировок спортсмен проплыл 4 км. Каждый следующий день он
' увеличивал дневную норму на 10%.
' Определить: Через какое количество дней норма составит 6 км.


CLS
d = 4                      
dn = 1
Do
        dn = dn + 1          
        d = d * 1.1          
Loop Until d >= 6
        PRINT " 6 км должен будет проплыть за"; dn; "-ю тренировку"
End