М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Составить алгоритм и программу на языке QBasic циклической структуры
Даны натуральные числа х и у. Вычислить произведение ху, используя лишь операцию сложения. Задачу решить двумя

👇
Открыть все ответы
Ответ:
BuMo1
BuMo1
09.03.2021
   Как и любая знаковая система, азбука Морзе имеет как преимущества, так и недостатки. Среди достоинств данного кода можно выделить такие, как возможность записывать и воспроизводить сигналы при простейших устройств, возможность ручной кодировки, а также высокая защищенность от помех при условии приема сообщения на слух даже при наличии сильных радиопомех. 
   Что касается недостатков, к ним относятся низкая скорость телеграфирования, сам код малопригоден для буквопечатающего приема, да и к тому же на передачу одного такого знака требуется в среднем около 9-10 элементарных посылок, что довольно неэкономично. 
4,7(10 оценок)
Ответ:
kurotetsu666
kurotetsu666
09.03.2021
Конечно, я помогу вам с написанием программ на языке 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 помогут вам решить ваши задачи. Если у вас возникнут еще вопросы, не стесняйтесь задавать.
4,4(23 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ