никак там невозможно сделать
Примеры перевода из десятичной СС в двоичную, восьмеричную и шестнадцатиричную СС<span>Двоичная СС (q=2). Переведем число 2310 в двоичное представление. Используя вышеизложенное правило, разделим число 23 на основание целевой СС - 2: 23/2 = 11 и 1 в остатке. Младшая цифра двоичного числа - 1. Делим 11 на 2, получаем 5 и 1 в остатке. Следующая цифра числа - тоже 1. Записываем ее слева от предыдущей цифры - 11. Далее получаем 2 и 1 в остатке, а само число - 111. Далее, 2/2 = 1 и 0 в остатке. Получилось число 0111. Последнюю единицу делим опять на 2, получаем в результате 0 (это значит, что процесс перевода закончен) и в остатке - 1. Поолучили число 10111. Таким образом, 2310=101112.</span><span>Восьмеричная СС (q=8). Перевдем десятичное число 100 в восьмеричный вид:
100/8=12 и 4 в остатке
12/8=1 и 4 в остатке
1/8=0 и 1 в остатке
Получили 10010=1448.</span><span>Шестнадцатиричная СС (q=16). Перевдем десятичное число 1000 в шестадцатиричную СС:
1000/16=62 и 8 в остатке
62/16=3 и 14 в остатке
3/16=0 и 3 в остатке
Вспомним, что цифры, большие девяти, обозначаются буквами. Цифре 14 соответствует буква E. Получили 100010=3E816.</span>
Количество наборов 6, какие это смотри на вложении
Что-то меня глючит. Я же вроде как отвечал...
dim years
years = inputbox("Введите ваш возраст")
if years = 1 then msgbox("Мне 1 год") end if
if years = 2 then msgbox("Мне 2 годa") end if
if years = 3 then msgbox("Мне 3 годa") end if
if years = 4 then msgbox("Мне 4 годa") end if
if (years >= 5) and (years <= 19) then msgbox("Мне "+cstr(years)+" лет") end if
if years >= 20 then
dim s
s = "Мне "+cstr(years)
if (years mod 10 = 1) then s = s + " год" end if
if (years mod 10 >= 2) and (years mod 10 <= 4) then s = s + " годa" end if
if (years mod 10 >= 5) and (years mod 10 <= 9) then s = s + " лет" end if
if (years mod 10 = 0) then s = s + " лет" end if
msgbox(s)
end if
VBS
