Найти цифру. соответствующую разряду

@Rwq · Регистрация: 06.01.2013

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

Дано целое число, большое 999. Используя одну операцию деления нацело и одну операция взятия остатка от деления найти цифру. соответствующую разряду тысяч в записи этого числа

Добавлено через 12 секунд
помггите написать на ВБА

@Catstail · 09.01.2013, 12:09

Visual Basic

1	d%=(x% \ 1000) mod 10

x% - исходное число; d% - результат.

@Rwq · 09.01.2013, 19:18 **[ТС]**

так ?

Visual Basic

Public Sub Command12_Click()
A = InputBox("A = ")
B = InputBox("B = ")
If A > 999 Then MsgBox "ðàçðÿä"
B% = (A% \ 1000) Mod 1
End Sub

Аксима · 10.01.2013, 17:33

Rwq, лучше так:

Visual Basic

1
2
3

Public Sub Command12_Click()
    MsgBox "Цифра разряда тысяч: " & (InputBox("Введите целое число, большее 999:") \ 1000) Mod 10
End Sub

С уважением,

Aksima

@Rwq 2 / 2 / 0 Регистрация: 06.01.2013 Сообщений: 26
		1
	Найти цифру. соответствующую разряду 09.01.2013, 11:13. Показов 816. Ответов 3 Метки нет (Все метки) Дано целое число, большое 999. Используя одну операцию деления нацело и одну операция взятия остатка от деления найти цифру. соответствующую разряду тысяч в записи этого числа Добавлено через 12 секунд помггите написать на ВБА 0

	10.01.2013, 17:33