Sub ex1() Dim s As String, s1 As String Dim i As Integer, j As Integer s = InputBox("Введите слово") i = InStr(s, "а") If i > 0 Then s1 = Left(s, i) For j = i + 2 To Len(s) Step 2 s1 = s1 + Mid(s, j, 1) Next j Else s1 = s End If MsgBox "Результат: " + s1 End Sub
- Первый робот-автомобиль: 1970 г.
- Автомат-гуманоид: 2005 г.
- Первое появление слова «робот»: 1921 г.
- Первый автономный робот: 1833 г.
- Первая Вычислительная машина: 1464 г.
- Первый дистанционный робот: 1949 г.
Теперь рассмотрим каждый пункт.
1. Первый робот-автомобиль. Робот-автомобиль является технологическим устройством, способным перемещаться автоматически без участия человека за рулем. Первый робот-автомобиль был создан в 1970 году. Это означает, что именно в этом году был изобретен и представлен общественности первый автомобиль, способный работать без водителя.
2. Автомат-гуманоид. Автомат-гуманоид - это робот, который имитирует человеческую форму и способности. Он обладает движущимися частями, которые выполнены в виде рук, ног и головы человека. Впервые автомат-гуманоид был создан в 2005 году. Это означает, что в 2005 году ученые разработали и сделали доступным для публики первого робота-гуманоида.
3. Первое появление слова «робот». Слово «робот» впервые появилось в 1921 году. Это слово было введено чехословацким писателем Карелом Чапеком в его пьесе «Р.У.Р.». В этой пьесе термин «робот» был использован для обозначения искусственных существ с искусственным интеллектом, созданных для работы.
4. Первый автономный робот. Автономный робот - это робот, способный принимать решения и выполнять задачи без участия человека. Первый автономный робот был создан в 1833 году. В том году какой-то ученый или изобретатель разработал механизм, который мог функционировать полностью автономно без необходимости управлять им с помощью человека.
5. Первая Вычислительная машина. Одним из первых примеров вычислительной машины был абак, который появился в Древнем Китае в 1464 году. Абак представлял собой деревянную рамку с перемещаемыми шариками и использовался для выполняения арифметических операций.
6. Первый дистанционный робот. Первый дистанционный робот был создан в 1949 году. Это означает, что в том году ученые или инженеры смогли разработать и протестировать робота, который мог контролироваться и управляться с помощью дистанционного устройства, такого как пульт или команды с компьютера, находящегося на некотором расстоянии от робота.
Надеюсь, эта информация помогла тебе лучше понять и установить соответствие между разными роботами и годами их создания. Если возникли еще какие-то вопросы, не стесняйся задавать!
Для решения данной задачи, нам необходимо проанализировать исходное предложение и новое предложение после вычеркивания названия животного. Для начала, посчитаем количество символов в исходном предложении и новом предложении.
Теперь воспользуемся информацией о кодировке Unicode, где каждый символ кодируется 16 битами, или 2 байтами. Для нахождения размера предложения в байтах, умножим количество символов на 2. Сравним размеры исходного и нового предложений:
Исходный размер предложения в байтах: (количество символов в исходном предложении) * 2;
Новый размер предложения в байтах: (количество символов в новом предложении) * 2 + 22.
Из условия задачи известно, что новый размер предложения на 22 байта меньше, чем исходный размер предложения. Подставим известные значения в уравнение:
(количество символов в новом предложении) * 2 + 22 = (количество символов в исходном предложении) * 2.
Разделим оба выражения на 2, чтобы избавиться от умножения на 2:
(количество символов в новом предложении) + 11 = (количество символов в исходном предложении).
Таким образом, количество символов в исходном предложении больше, чем количество символов в новом предложении на 11.
Теперь сравним полученную информацию с предложениями, чтобы определить, какое животное было вычеркнуто:
Dim s As String, s1 As String
Dim i As Integer, j As Integer
s = InputBox("Введите слово")
i = InStr(s, "а")
If i > 0 Then
s1 = Left(s, i)
For j = i + 2 To Len(s) Step 2
s1 = s1 + Mid(s, j, 1)
Next j
Else
s1 = s
End If
MsgBox "Результат: " + s1
End Sub