Question

Помогите написать программу по этому заданию в Basic

Answer 1

Ответ:

1656

Объяснение:

Программа игры будет примерно такая:

Sub GameNumber

Dim A As Integer, X1 As Integer, X2 As Integer, X3 As Integer

Dim Z1 As Integer, Z2 As Integer, V As String

A = Input ("Введите трехзначное число") ' Это в обычном Basic

' Вариант для Visual Basic: A = InputBox ("Введите трехзначное число")

X3 = A Mod 10 ' Цифра единиц.

X2 = ((A Mod 100) - X3) / 10 ' Цифра десятков

X1 = (A - X2*10 - X3) / 100 ' Цифра сотен

Z1 = X1*X2 ' Произведение 1 и 2 цифры

Z2 = X2*X3 ' Произведение 2 и 3 цифры

If Z1 < Z2 Then V = Str(Z1) & Str(Z2) Else V = Str(Z2) & Str(Z1)

Print V ' Это в обычном Basic.

' Вариант для Visual Basic: MsgBox (V)

End Sub

Теперь ответ:

Если число было 287, то результат: 2*8=16, 8*7=56, вывод: 1656.

Варианты 102 и 555 быть не могут.

#SPJ1