Дано четырехзначное число. определить равна ли сумма - вопрос №2105018 от mmmmm30 17.12.2021 21:21

Question

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

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