Module Module1
Function DigSum(ByVal n As Integer) As Integer
Dim sum As Integer
sum = 0
While n <> 0
sum = sum + n Mod 10
n = n / 10
End While
DigSum = sum
End Function
Sub Main()
Dim n As Integer, s As String
Do
s = InputBox("Введите четырёхзначное число")
n = Val(s)
Loop Until (n >= 1000) And (n <= 9999)
If DigSum(n) Mod 2 = 0 Then
If DigSum(n Mod 100) = DigSum(n / 100) Then
MsgBox("Да")
Else
MsgBox("Нет")
End If
Else
MsgBox("Нет")
End If
End Sub
End Module
Dim sDano As String, Answer As String, Asign As String
Dim Num(1 To 4) As Integer, i As Integer, j As Integer
Dim Summa As Integer
sDano = InputBox("Введите четырёхзначное число")
If sDano <> "" Then
If Len(sDano) = 4 And IsNumeric(sDano) Then
Summa = 0
For i = 1 To 4
Num(i) = CInt(Mid(sDano, i, 1))
Summa = Summa + Num(i)
Next
Answer = "В числе " + sDano + vbCrLf + "сумма цифр= " + CStr(Summa)
If Summa Mod 2 = 0 Then
Answer = Answer + " (чётная)" + vbCrLf + vbCrLf
i = Num(1) + Num(2)
j = Num(3) + Num(4)
If i = j Then Asign = "равна" Else Asign = "не равна"
Answer = Answer + "Сумма двух первых цифр= " + CStr(i) + vbCrLf
Answer = Answer + Asign + vbCrLf
Answer = Answer + "cумме двух последних цифр= " + CStr(j)
Else
Answer = Answer + " (нечётная)"
End If
Else
Answer = "Введены некорректные данные """ + sDano + """"
End If
MsgBox Answer
End If
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.