Дано четырехзначное число

36

Дано четырехзначное число. Определить равна ли сумма первых двух его цифр сумме двух его последних цифр. ВEXcel

категория: информатика

ответить

в избранное

97

maks80

18 марта 2023

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

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Решить задачу. Написать…

Даны системы счисления с основаниями 2, 8, 10 и 16. Запись вида 328!

Запишите порядок команд в алгоритме получения из числа 11 число 13, содержащие 5 команд…

Срочно! Подмножество объектов, имеющих общие признаки

ДОНАТ: 1. Почему производители игр предпочитают получать деньги за счет донатов, а не за счет продажи игр?

Совокупность средств и правил взаимодействия пользователя с компьютеромназывают

Как написать задачу в Паскале? Дано целое трехзначное число N. Верно ли, что в нем есть хотя бы одна цифра 7?

У жителя села «Недесятичное» в саду имеются 122 плодовых деревьев…

Клиент положил деньги в банк под N% годовых

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...