197 представим в виде суммы=128+64+5
128=10000000
64=1000000
5=101
всего 4 единицы
Смотри.
Смотришь, сколько раз выполняется твое условие. Здесь указано 4.
Смотришь на условие. Перемещение по X - 3,-2,1. Складываем - конечное перемещение равно 2.
Перемедение по Y - 0,-1,0. Складываем - конечное перемещение равно - 1.
Теперь умножаешь это перемещение (2;-1) на 4 т.к дано в условии, получается твой чертежник оказался после команды в точке (8;-4)
Вопрос таков - какую команду надо выполнить чтобы ВЕРНУТЬСЯ В ИСХОДНУЮ, значит нужно как бы шагнуть назад, с отрицательным значением
-8,4
Ответ :1
1. Строка получается слишком длиной, поэтому разбиваем ее на две части
Sub Z1()
Dim n As Integer
Dim i As Integer
Dim s1 As String
Dim s2 As String
For i = 100 To 999
If i Mod 3 = 0 Then
n = n + 1
If Len(s1) < 1024 Then
s1 = s1 & i & " "
Else
s2 = s2 & i & " "
End If
End If
Next i
MsgBox (s1)
If Len(s2) > 0 Then MsgBox ("Продолжение: " & s2)
MsgBox ("Их количетво: " & n)
<span>End Sub
1. Вариант дла Excel. Срабатывает на двойном клике мышки. Можешь приписать любому другому событию
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim n As Integer
Dim i As Integer
For i = 100 To 999
If i Mod 3 = 0 Then
n = n + 1
Cells(n, 1) = i
End If
Next i
MsgBox ("Их количество: " & n)
<span>End Sub</span>
2.
Sub z2()
Dim k As Integer
Dim p As Double
k = InputBox("Введите k:")
</span>p = 1
For i = 1 To k
p = p * (-1 + 4 * (i - 1))
Next i
MsgBox ("Произведение: " & p)
End Sub
Лат. carne vale, «прощай, мясо» либо лат. car val — «корабль шутов»
Var
a,b,c:integer; x:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
x:=a+b*b/c;
write('X=',x);
end.
