Дано четырехзначное число. определить равна ли сумма первых двух его цифр сумме двух его последних цифр. в EXcel
10-11 класс
|
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
Другие вопросы из категории
Ввести натуральное число N. Проверить, расположены ли его цифры в порядке неубывания.
Решить НЕ ЧЕРЕЗ МАССИВ. (циклами)
Переведите числа в двоичную систему счисления и выполните операции арифметического сложения и умножения, а также операции поразрядного логического сложения и умножения.
Правильность полученных результатов проверьте с помощью компьютерного калькулятора.
Читайте также
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
Дано четырехзначное число.Определить,верно ли ,что произведение первой и второй цифр равно произведению третьей и четвертой.
Программа:free pascal
д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр