Помогите с задачей по информатике языком VBA.Дано ОДНО вещественное число (double). Определить первую цифру в дробной части заданного положительного вещественного числа. (3.67 = 6)

Question

Помогите с задачей по информатике языком VBA.Дано ОДНО вещественное число (double). Определить первую цифру в дробной части заданного положительного вещественного числа. (3.67 = 6)

Гость

Ответ(ы) на вопрос:

Accepted Answer

Sub Zadanie() d = CDbl(InputBox("d =")) MsgBox round(d * 10) mod 10 End Sub Call Zadanie()