Ответ:

Объяснение:

Sub Swap(a, b)

t = a

a = b

b = t

End Sub

Sub ex2()

a = CDbl(Cells(1, 2))

b = CDbl(Cells(2, 2))

c = CDbl(Cells(3, 2))

Cells(4, 2) = "Íå ïðÿìîóãîëüíûé"

If a < b Then Call Swap(a, b)

If a < c Then Call Swap(a, c)

If b ^ 2 + c ^ 2 = a ^ 2 Then Cells(4, 2) = "Ïðÿìîóãîëüíûé"

End Sub