Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
какчитаетсяэтосказка
08.02.2020 02:11 •
Информатика
Visual basic составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: cумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр
Показать ответ
Ответ:
kovdalg
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 оценок)
Популярные вопросы: Информатика
АнастасияХорошистка
01.02.2020 09:33
В практической работе по информатике в GIMP надо указать интерполяцию Sink (возможно в задание указано неверное название), но в вариантах есть только кубическая, линейная, без гало,...
wolf13131
05.06.2023 01:39
Какое значение примет переменная С после выполнения данного алгоритма при а=20?...
юм123
28.03.2023 23:33
Результатом вычислений в ячейке С1 будет: 15 20 5 10...
Deztroyer
07.01.2023 01:55
Информационный объем экрана разрешением 600 на 800 точек и 256 цветов равен ( : 1) 960000 байт 480000 байт 1000 Кбайт 153600 байт...
ВладВишня
13.10.2022 10:08
Какой логической операции соответствует данная таблица истинности...
Natte1
30.07.2020 14:51
Какие суждения верны только для позиционной системы счисления? * У системы счисления есть алфавит Для системы счисления можно указать мощность алфавита Величины цифры зависит от ее...
неудачник16
23.02.2022 10:48
Определите значение переменной z после выполнения данного фрагмента программы: X:=54; Z:=36; X:=(X—Z)/9 Z:=(Z+X)/2...
zenfnfsj
16.08.2021 11:20
Напишите на гипотетическом языке запросов команду, формирующую таблицу расшифровки кодов специальностей. Строки должны быть упорядочены по воарастанию кодов....
mmhhmuraad
27.08.2022 19:18
Числовая константа 300 000 может быть записана в виде...
valeria232425
14.04.2020 06:28
1. О каком значении термина «логика» идет речь в следующем отрывке: «Теперь все готово. Он даже не удивился своим действиям, насколько они казались ему логичными». (П. Буало – Т....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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)