Visual BasicСоставить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае: Cумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр
Visual BasicСоставить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае: Cумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Option Explicit
Sub CheckSum
Dim num As Integernum = InputBox"Введитечетырехзначноечисло:""Введите четырехзначное число:""Введитечетырехзначноечисло:"
Dim firstTwoDigits As Integer
Dim lastTwoDigits As Integer
Dim sumFirstTwoDigits As Integer
Dim sumLastTwoDigits As Integer
firstTwoDigits = num \ 100
lastTwoDigits = num Mod 100
sumFirstTwoDigits = firstTwoDigits 10firstTwoDigits \ 10firstTwoDigits 10 + firstTwoDigitsMod10firstTwoDigits Mod 10firstTwoDigitsMod10 sumLastTwoDigits = lastTwoDigits 10lastTwoDigits \ 10lastTwoDigits 10 + lastTwoDigitsMod10lastTwoDigits Mod 10lastTwoDigitsMod10
If sumFirstTwoDigits = sumLastTwoDigits Then
MsgBox "TRUE"
Else
MsgBox "FALSE"
End If
End Sub