VBS скрипт находит основание числа - если известно десятичное представление и представление в системе с произвольным основанием
Dim osnovanie Dim cislo1 Dim cislo2 Dim delenie2 Dim delenie3 osnovanie = 2 cislo1 = InputBox("Введите десятичное число") cislo2 = InputBox("Введите число в системе счисления c некоторым основанием") cislo3 = cislo1 Itog = 1 Do While (cislo2 <> Itog) delenie2 = cislo1 mod osnovanie delenie3 = cislo1\osnovanie Itog = delenie2 Do While (osnovanie =< delenie3) cislo1 = delenie3 delenie2...