С клавиатуры вводится целое двухзначное число Х. Определить сколько десятков и единиц в Х - VB
Формулировка задачи:
С клавиатуры вводится целое двухзначное число Х. Определить сколько десятков и единиц в Х.
Решение задачи: «С клавиатуры вводится целое двухзначное число Х. Определить сколько десятков и единиц в Х»
textual
Листинг программы
Private Sub Form_Load()
a = Val(InputBox("Введите двузначное число"))
b = a Mod 10
c = a \ 10
MsgBox (b & " - число единиц")
MsgBox (c & " - число десятков")
End Sub