С клавиатуры вводится целое двухзначное число Х. Определить сколько десятков и единиц в Х - VB

Узнай цену своей работы

Формулировка задачи:

С клавиатуры вводится целое двухзначное число Х. Определить сколько десятков и единиц в Х.

Решение задачи: «С клавиатуры вводится целое двухзначное число Х. Определить сколько десятков и единиц в Х»

textual
Листинг программы
Private Sub Form_Load()
a = Val(InputBox("Введите двузначное число"))
b = a Mod 10
c = a \ 10
MsgBox (b & " - число единиц")
MsgBox (c & " - число десятков")
End Sub

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы