Число солбцов ms ехсеl 2007, 2007, 2010

В2007 версии 1 048 576 строк и 16 384 столбцовв 2003 - 65 535 строк и 256 столбов

sub same()

    dim n, m, i as integer, j as integer, sstr as string, bflag as boolean

    n = inputbox("n")

    m = inputbox("m")

    for i = 1 to len(n)

        for j = 1 to len(m)

            if mid(n, i, 1) = mid(m, j, 1) then

                bflag = true

                exit for

            end if

        next

        if bflag then exit for

    next

    msgbox sstr

end sub

таких систем исчисления всего две.   основание а = 9 и основание а =367, но в системе с основанием 367  

проблематично записывать числа (символов не хватит).

если число 3306(10) в системе исчисления с основанием а заканчивается цифрой  

3, то тогда

число 3303 делится на основание системы а.

отсюда алгоритм поиска.  

  находим все делители числа 3303.

3303 = 3*1101 = 3*3*367.   число 367 - простое.  

поэтому основаниями системы исчисления 

могут быть только 3, 9, 367.

  основание =3 не подходит, так как по условию число должно заканчиваться на 3   -> основание больше  3.

  остаются 9, 367.

надеюсь тебе понравилось: )