Предположу, можно многое под длину слов подогнать.
1. Нормализация. 2. Фрагмент. 3. Счётчик. 4. Ячейка. 5. Сортировка. 6. Имитация.
Audi; BMW; Volkswagen; Datsun; KIA
<span>Считывается первое число, определяется знак, считывается второе, определяется знак, сравнивается, анализируется. </span>
<span>//В задании не указан язык программирования. </span>
Интерне́т — всемирная система объединённых компьютерных сетей для хранения и передачи информации. Часто упоминается как Всемирная сеть и Глобальная сеть, а также просто Сеть. Построена на базестека протоколов TCP/IP. На основе Интернета работает Всемирная паутина(World Wide Web, WWW) и множество других систем передачи данных.
В 1957 году, после запуска Советским Союзом первого искусственного спутника Земли, Министерство обороны США посчитало, что на случай войны США нужна надёжная система передачи информации. Агентство по перспективным оборонным научно-исследовательским разработкам США(DARPA) предложило разработать для этого компьютерную сеть.
Первой исследовательской программой в этом направлении руководил Джозеф Ликлайдер (Joseph Carl Robnett Licklider) опубликовавший в 1962 году работу «Galactic Network». Благодаря Ликлайдерупоявилась первая детально разработанная концепция компьютерной сети. Она была подкреплена работами Леонарда Клейнрока (Leonard Kleinrock) в области теории коммутации пакетов для передачи данных (1961—1964). В 1962 году Пол Бэран (Пейсах Баран, Paul Baran) из RAND Corporation подготовил доклад «On Distributed Communication Networks». Он предложил использовать децентрализованную систему связанных между собой компьютеров (все компьютеры в сети равноправны) которая даже при разрушении её части будет работоспособна. Этим решались две важные задачи – обеспечение работоспособности системы и неуничтожимость данных, которые оказываются сохранёнными на разнесённых друг от друга компьютерах. Предлагалось передавать сообщения в цифровом, а не в аналоговом виде. Само сообщение предлагалось разбивать на небольшие порции — «пакеты», и передавать по распределённой сети все пакеты одновременно. Из принятых в месте назначения дискретных пакетов сообщение заново «собиралось».
1) Текст заданной длины n, состоящий из букв А и В
Dim A(2) As String, n As Integer, i As Integer, Txt As String, k As Integer
Cls: Randomize
A(1) = "A": A(2) = "B"
Print "Введите длину текста: ";: Input n
Txt = ""
For i = 1 To n
k = Int(Rnd(1)*2) + 1 ' k - случайное число, равное 1 или 2
Txt = Txt & A(k) ' Прибавляем к тексту случайно букву А или В
Next i
Print Txt
End
2) Количество символов заданного числа
Dim n As Integer, k As Integer
Cls
Print "Введите число: ";: Input n
k = 0
Do While n > 0
n = Int(n / 10)
k = k + 1
Loop
Print k
End
3) Вывести символы строки в обратном порядке
Dim n As Integer, i As Integer, Txt1 As String, Txt2 As String
Cls
Print "Введите строку ": Input Txt1
Txt2 = ""
For i = Len(Txt1) To 1 Step -1
Txt2 = Txt2 & Mid(Txt1, i, 1)
Next i
Print Txt2
End
Хватит. Если хочешь еще, задавай остальные задачи в другом вопросе.