Исполнитель робот действует на клетчатой доске, между соседними клетками которой могут стоять стены. робот передвигается по клеткам доски и может выполнять команды 1 (вверх), 2 (вниз), 3 (вправо) и 4 (влево), переходя на соседнюю клетку в направлении, указанном в скобках. если в этом направлении между клетками стоит стена, то робот разрушается. робот успешно выполнил программу 41444231. какую последовательность из четырех команд должен выполнить робот, чтобы вернуться в ту клетку, где он был перед началом выполнения программы, и не разрушиться вне зависимости от того, какие стены стоят на поле?

ответом будет являться последовательность из четырех команд - 3323

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.

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