Question

VBA В зависимости от суммы вывести единицы измерения копейка, копеек, копейки

Answer 1

Ответ:

одна копейка,пять копеек,две копейки

Объяснение:

Answer 2

Вот пример кода на VBA, который выводит правильное склонение единицы измерения для суммы в копейках:

vbaCopy code
Sub ВывестиЕдиницыИзмерения(ByVal сумма As Double)
    Dim остаток As Double
    Dim единицаИзмерения As String

    остаток = сумма Mod 10
    If сумма >= 5 And сумма <= 20 Or остаток = 0 Or остаток >= 5 Then
        единицаИзмерения = "копеек"
    ElseIf остаток = 1 Then
        единицаИзмерения = "копейка"
    Else
        единицаИзмерения = "копейки"
    End If

    MsgBox "Сумма: " & сумма & " " & единицаИзмерения
End Sub

Вы можете вызвать эту процедуру, передавая ей сумму в копейках, и она отобразит правильное склонение единицы измерения в сообщении. Например:

vbaCopy code
Sub ПримерИспользования()
    ВывестиЕдиницыИзмерения 123 ' Выводит "Сумма: 123 копейки"
    ВывестиЕдиницыИзмерения 40 ' Выводит "Сумма: 40 копеек"
    ВывестиЕдиницыИзмерения 357 ' Выводит "Сумма: 357 копеек"
End Sub

Пожалуйста, обратите внимание, что этот код предназначен для VBA (Visual Basic for Applications), который используется в приложениях Microsoft Office, таких как Excel или Access. Если вы используете другую среду программирования, вам может потребоваться адаптировать этот код для вашей среды.