Найти тему
VBS скрипты

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 = cislo1 mod osnovanie

delenie3 = cislo1\osnovanie

Itog = (delenie2 & Itog)

loop

Itog = (delenie3 & Itog)

osnovanie = osnovanie + 1

cislo1 = cislo3

loop

MsgBox "Основание" & " " & osnovanie