Задача 73469 Даны два числа. Эти числа заранее...

645fa26faed21f236322bc96

13.05.2023 17:45:51

Даны два числа. Эти числа заранее неизвестны. Вывести на экран
первое число, если оно больше второго, и оба, если это не так. Задача vba

5f282cfba9074b3a3bc0f013

22.10.2023 23:07:47

★

```VBA
Sub CompareNumbers()

' Дано: два числа
Dim num1 As Double
Dim num2 As Double

' Установить значения чисел
num1 = InputBox ("Введите первое число")
num2 = InputBox ("Введите второе число")

' Решение: Сравниваем числа
If num1 > num2 Then
' Выводим первое число, если оно больше второго
MsgBox num1
Else
' Выводим оба числа, если первое не больше второго
MsgBox num1 & " и " & num2
End If

End Sub
```