zadach233.BAS

{* Задача233 *}

REM basic

' Рассчитать стоимость компьютера через 1 год после покупки, если его цена
' уменьшается на 4% в полтора месяца.


CLS


INPUT "Введимте начальную цену компьютера ", p

For i = 1.5 To 12 Step 1.5
        p = p * (1 - .04)
Next i

PRINT "Через через год компьютер будет стоить "; p

End