Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
gordeevlogain2
13.12.2022 12:58 •
Информатика
Visual basic составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: cумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр
Показать ответ
Ответ:
danilfkr
23.09.2020 07:35
'VBScript
Function FirstEqLast(number)
last = number mod 10 + (number \ 10) mod 10
f1 = 0
f2 = 0
do while number > 0
f2 = f1
f1 = number mod 10
number = number \ 10
loop
first = f1 + f2
FirstEqLast = (first = last)
End Function
msgbox FirstEqLast(32532)
0,0
(0 оценок)
Популярные вопросы: Информатика
XxNoNamexX
08.08.2022 02:04
Cd объемом 700 мб весит 15 г. сколько будет весить набор таких дисков,необходимый для полного копирования информации с жесткого диска объемом 320 гбайт?...
диас137
09.12.2021 08:36
Решите ! надо! вводится 100 чисел. найти количество чисел, равных максимальному и количество чисел, равных минимальному. паскаль...
AnNik08
08.10.2022 17:58
Пользователь работал с файломc: \doc\class\9v\lesson\math.doc. затем он поднялся на один уровень вверх, создал каталог topic, в нём создал ещё один каталог algebra...
ggezzzz
08.08.2021 14:32
Объясните как из восьми ричной системы переводить в 10 ричную 727...
nikgukasov
03.03.2021 20:28
На диске d: необходимо выполнить следующую последовательность действий: 1)создать каталог мин 2)открыть каталог мин 3)создать каталог 1 4)открыть каталог 1 5)создать...
dumbschoolkid
03.03.2021 20:28
Какие есть устройства позволяющие записывать звук....
Cказочник
03.03.2021 20:28
Даны 12 чисел. найти произведение ненулевых чисел и количество нулей. напишите программу на языке с++ и алгоритм к ....
alyakozlova22
03.03.2021 20:28
Какие есть устройства для прослушивания звука?...
Николь11189
20.03.2020 00:21
Определите (для данного цифрового образовательного ресурса), между какими с танцами существуют существует гиперсвязи...
ппсомо3657
20.03.2020 00:21
Вшкатулке лежит 16 шаров, из которых 6 черные, 4 красные, остальные зелёные. из шкатулки извлекли красный шар, посетили и положили обратно в шкатулку. после этого повторно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Function FirstEqLast(number)
last = number mod 10 + (number \ 10) mod 10
f1 = 0
f2 = 0
do while number > 0
f2 = f1
f1 = number mod 10
number = number \ 10
loop
first = f1 + f2
FirstEqLast = (first = last)
End Function
msgbox FirstEqLast(32532)