Дано четырехзначное число. определить равна ли сумма первых двух его цифр сумме двух его последних цифр. в EXcel

1

Ответы и объяснения

2013-12-15T19:29:23+04:00
  Dim i As Integer
        i = CInt(InputBox("Введите 4-х значное число"))
If (CInt(Mid(CStr(i), 1, 1)) + CInt(Mid(CStr(i), 2, 1)) = CInt(Mid(CStr(i), 3, 1)) + CInt(Mid(CStr(i), 4, 1))) Then     
      MsgBox("сумма  РАВНА ")     
Else       
    MsgBox("сумма НЕ РАВНА ")     
End If