Sub Macro1() x = Cells(1, 2) y = Cells(2, 2) R = Cells(3, 2) flag = False If x ^ 2 + y ^ 2 <= R ^ 2 Then flag = True End If If flag Then MsgBox ("Точка M("  ... Читать дальше »