Перевести числа 1010101-2 ичная система + перевести в 10-ую 172 в восьмиричной перевести в десятичную 2ea шестнадцатиричная перевести в десятичную 243 шестеричная перевести в 10 513 в десятичной перевести в 8 - 16 ричную 600 в десятичной перевести в 8 - 16 ричную ситему

151

224

Посмотреть ответы 1

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

vlada23912

Информатика

4,6(81 оценок)

Function getnumberproduct(n) if not isnumeric(n) then getnumberproduct = "not a valid number" exit function end if n = abs(n) product = 1 do while n > 0 product = product * n mod 10 n = n \ 10 loop getnumberproduct = product end function n = 1203 msgbox("product of digits in " & n & " = " & getnumberproduct(n)) проверялось на vbscript, yно думаю работать и у тебя будет