Задание на VB 6.0 =)

[Art077]

На visual basic 6.0
Известно, что из четырех чисел a1, a2, a3 и a4 одно отлично от трех других, равных между собой; присвоить номер этого числа переменной n.

[Art077]

помогите решить =)

[Abstraction]

Я показываю Вам четыре карты, рубашкой вверх. Три из них одного достоинства, одна - другого. Как вы поймёте, кто из них отличается, если единовременно можно смотреть только на две карты?

[FelixXXI]

Как-то так:

If a1=a2 Then
      If a3=a1 Then
            n=a4
      Else
            n=a3
      End If
Else
      If a1=a3 Then
            n=a2
      Else
            n=a1
      End If
End If

[Art077]

спасибо большое =*

[Abstraction]

Вообще,

n=(a1-2*a2-3*a3+4*a4)/(a1-a2-a3+a4)