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

@Richiro · Регистрация: 08.11.2014

Студворк — интернет-сервис помощи студентам

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

@Lotesse · 14.12.2014, 18:22

Visual Basic

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

@Richiro · 15.12.2014, 09:00 **[ТС]**

Спасибо

@Richiro 0 / 0 / 0 Регистрация: 08.11.2014 Сообщений: 6
		1
	С клавиатуры вводится целое двухзначное число Х. Определить сколько десятков и единиц в Х 12.12.2014, 21:42. Показов 2702. Ответов 2 Метки нет (Все метки) С клавиатуры вводится целое двухзначное число Х. Определить сколько десятков и единиц в Х. 0

@Richiro 0 / 0 / 0 Регистрация: 08.11.2014 Сообщений: 6
	15.12.2014, 09:00 [ТС]	3
	Спасибо 0

Опции темы

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

Решение