Question

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

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

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

Answer 1

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

1. Даны три числа A, В, С. Необходимо вывести все нечетные числа.
Для решения этой задачи, мы можем использовать операторы условия и цикла. Вот код программы:

```vb
Dim A As Integer = 3
Dim B As Integer = 8
Dim C As Integer = 5

Console.WriteLine("Нечетные числа:")

If A Mod 2 <> 0 Then
Console.WriteLine(A)
End If

If B Mod 2 <> 0 Then
Console.WriteLine(B)
End If

If C Mod 2 <> 0 Then
Console.WriteLine(C)
End If

Console.ReadLine()
```

Объявляем три переменные A, B, C и присваиваем им значения. Если число делится на 2 без остатка, значит оно четное, и мы его не выводим. Если число не делится на 2 без остатка (имеет остаток), значит оно нечетное, и мы его выводим на экран. Функция Console.ReadLine() используется для того, чтобы консольное окно не закрывалось сразу после выполнения программы.

2. Даны три числа A, В, С. Необходимо вывести наибольшее среди этих трех чисел. Условие задачи - все числа разные.
Для решения этой задачи, мы можем использовать операторы условия. Вот код программы:

```vb
Dim A As Integer = 10
Dim B As Integer = 5
Dim C As Integer = 9

Dim max As Integer

If A > B And A > C Then
max = A
ElseIf B > A And B > C Then
max = B
Else
max = C
End If

Console.WriteLine("Наибольшее число: " & max)
Console.ReadLine()
```

Мы объявляем три переменные A, B, C и присваиваем им значения. Затем мы сравниваем каждое число с двумя другими числами, чтобы определить, какое из них является наибольшим. Мы используем оператор условия If-ElseIf-Else для этого сравнения. Затем мы выводим наибольшее число на экран.

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