Как это работает?

[Sirik]

http://www.izvilina.com/dumki.htm
Как работает?
Может кто алгоритм знает?

[alibek]

Да очень просто
Взгляни по диагонали.

[Ramzes]

Из той же серии
Загадай любое число, отними от него 5, прибавь 20, прибавь 3 отними свое число, прибавь 2 отнеми 10 и у тебя получилось 10

[Sirik]

2 Ramzes
Да, но каждый раз разные значения получаются

[alibek]

Посмотри внимательно.
Каждый раз получаются разные значки, но относительно друг друга они всегда расположены одинаково.

[Sirik]

То ли у меня уже мозги не варят, то ли.... боюсь даже сказать...

alibek, опиши потробней!

ЗЫ. я сделал такой тест: загадал одновремённо 3 числа: 60, 72 и 34.
В рельтате получилось 56 (флаг), 63 (ромб) и 27 (ромб)

Ответ: ромб. получается что первый случай не правильный?

[alibek]

Загадай три раза разные числа и запиши их на бумажку. Затем посмотри картинки, соответствующие этим числам. Уверяю тебя, они будут одинаковые.
Когда ты нажмешь "Повторить" картинки изменятся, но этим трем числам будут по прежнему соответствовать одинаковые картинки.

P.S. Посмотри по диагонали низ-лево верх-право.

[Sirik]

Наконец-то въехал!

Проверил на примере:

Код: Выделить всё

    Dim I As Long
    For I = 10 To 99
        Debug.Print I - (Int(I / 10) + I Mod 10)
    Next


alibek, я прав?

З.Ы. только я не понял, причём тут диагонали?

[uhm]

Sirik: 60-(6+0)=54

Все просто: двузначное число (ab) на самом деле есть а*10+b. Вычти из этого (a+b), получишь 9a. Таким образом, твой результат всегда будет делиться на 9. Дальше уже дело техники расставить значки так, чтобы у всех чисел, делящихся на 9, значок был один и тот же, и его и выдавать при щелчке по квадрату

[Sirik]

Ага, я так и понял

[alibek]

Прав.
Диагональ при том, что на главной диагонали (девятки) все значки одинаковы.