ВБ
Вячеслав Б.в.
Я не могу помогите, как ?
Ребята помогите составить блок-схему: Найти двузначное число, равное утроенному произведению его цифр. Я не могу помогите, как ?
Ребята помогите составить блок-схему: Найти двузначное число, равное утроенному произведению его цифр. Я не могу помогите, как ?
Dim x As Long
Dim y As Long
Private Sub Command1_Click()
For i = 1 To 9
For k = 1 To 9
x = i
y = k
If x * y * 3 = (x & y) Then Print x & y: GoTo 10
Next k
Next i
10
End Sub