Question

Помагите. Написать программы на языке visual basic

1.​ ​ ​ ​ ​ ​ Даны три числа A, В, С. Необходимо вывести все нечетные числа

2.​ ​ ​ ​ ​ ​ Даны три числа A, В, С. Необходимо вывести наибольшее среди этих трех чисел. Условие задачи- все числа разные​

Answer 1

Конечно, я помогу вам с написанием программ на языке Visual Basic для решения этих задач.

1. Дано три числа A, B, C. Необходимо вывести все нечетные числа.

Для начала, нам нужно определить, какие из трех чисел являются нечетными. Мы можем использовать оператор Mod, который возвращает остаток от деления одного числа на другое. Если остаток равен нулю, то это число четное, иначе - нечетное.

Вот код программы на Visual Basic, который реализует это:

```vb
Sub Main()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim oddNumbers As String

' Ввод значений для переменных A, B и C
Console.Write("Введите значение для A: ")
A = Console.ReadLine()
Console.Write("Введите значение для B: ")
B = Console.ReadLine()
Console.Write("Введите значение для C: ")
C = Console.ReadLine()

' Проверка числа A на нечетность и добавление его к строке oddNumbers, если оно нечетное
If A Mod 2 <> 0 Then
oddNumbers = oddNumbers & A & " "
End If

' Проверка числа B на нечетность и добавление его к строке oddNumbers, если оно нечетное
If B Mod 2 <> 0 Then
oddNumbers = oddNumbers & B & " "
End If

' Проверка числа C на нечетность и добавление его к строке oddNumbers, если оно нечетное
If C Mod 2 <> 0 Then
oddNumbers = oddNumbers & C & " "
End If

' Вывод результата
Console.WriteLine("Нечетные числа: " & oddNumbers)

Console.ReadLine()
End Sub
```

При запуске программы она попросит вас ввести значения для переменных A, B и C. После этого она выведет все нечетные числа из трех введенных.

2. Дано три числа A, B, C. Необходимо вывести наибольшее из этих трех чисел. При этом условие задачи гласит, что все числа являются разными.

Для решения этой задачи мы можем использовать условные операторы If и ElseIf для сравнения трех чисел и нахождения наибольшего из них.

Вот код программы на Visual Basic, который реализует это:

```vb
Sub Main()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim maxNumber As Integer

' Ввод значений для переменных A, B и C
Console.Write("Введите значение для A: ")
A = Console.ReadLine()
Console.Write("Введите значение для B: ")
B = Console.ReadLine()
Console.Write("Введите значение для C: ")
C = Console.ReadLine()

' Проверка, какое число из трех наибольшее
If A > B And A > C Then
maxNumber = A
ElseIf B > A And B > C Then
maxNumber = B
Else
maxNumber = C
End If

' Вывод результата
Console.WriteLine("Наибольшее число: " & maxNumber)

Console.ReadLine()
End Sub
```

При запуске программы она попросит вас ввести значения для переменных A, B и C. После этого она выведет наибольшее из трех введенных. Обратите внимание, что данная программа работает только при условии, что все три числа разные.

Надеюсь, эти программы на Visual Basic помогут вам решить ваши задачи. Если у вас возникнут еще вопросы, не стесняйтесь задавать.