1. Перевести из 10-й систему счисления.
87, 145 , 550, 113, 99.

2. Перевести из 10-й в 8-ю систему счисления.
340, 685, 115, 880.

3.Перевести из 16-й в 10-ю систему счисления.
А33, 7D, F27.

Question

Информатика: 1. Перевести из 10-й систему счисления. 87, 145 , 550, 113, 99. 2. Перевести из 10-й в 8-ю систему счисления. 340, 685, 115, 880. 3.Перевести из 16-й в 10-ю систему счисления. А33, 7D, F27.

lelekasahsa7 · Accepted Answer

В приложении - рабочая книга Microsoft Excel 2003 с макросом. Для выполнения надо разрешить макросы.

Текст программы:

Option Explicit

Private Sub cmdStart_Click()
    Const T = 360 'Условное количество дней в году
    Dim PV As Double, FV As Double, r As Double, n As Double
    Dim d1 As Date, d2 As Date
    PV = Cells(1, 2).Value
    FV = Cells(2, 2).Value
    r = Cells(3, 2).Value
    d1 = Cells(4, 2).Value
    n = (FV / PV - 1) * T / r
    If n <> Int(n) Then n = n + 1
    d2 = d1 + n
    Cells(5, 2).Value = d2
End Sub

1. Перевести из 10-й систему счисления.87, 145 , 550, 113, 99.2. Перевести из 10-й в 8-ю систему счисления.340, 685, 115, 880.3.Перевести из 16-й в 10-ю систему счисления.А33, 7D, F27.

MOGZ ответил

1. Перевести из 10-й систему счисления.
87, 145 , 550, 113, 99.

2. Перевести из 10-й в 8-ю систему счисления.
340, 685, 115, 880.

3.Перевести из 16-й в 10-ю систему счисления.
А33, 7D, F27.