Дано четырехзначное число. определить равна ли сумма - вопрос №2104516 от lasalina 23.01.2020 04:05

Question

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

lasalina · Answer

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...