Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
warfrsm
04.07.2020 08:03 •
Информатика
Написать программу, позволяющую по последней цифре числа определить последнюю цифру его квадрата. язык программирования vba
Показать ответ
Ответ:
алипдужм
03.10.2020 18:13
Sub aaa()
n = InputBox("Введите число")
d = (CInt(Right(n, 1))) ^ 2 Mod 10
MsgBox "Последняя цифра квадрата последней цифры числа " + n + "=" + CStr(d)
End Sub
0,0
(0 оценок)
Популярные вопросы: Информатика
KunLallalit
09.08.2021 19:47
Билет № 321. выполнить относительно системы счисления.а) 11010102-1-20+1: 24+1-2 )hx10...
Nezox175
02.05.2023 05:29
1. б) выполнить перевод числа: 1abdab16 - х2....
NameXD
19.09.2020 14:40
Разместите вычисленные значения функции y=1+sin(π/8-x) для х∈[0,2] с шагом h=0,2 в одномерный массив y). “cожмите” числовой массив, выбросив из него отрицательные числа. определите,...
Nastya28612
08.10.2021 12:14
Для записи в восьмеричной системесчисления используются цифрв...
Бізнесмен22
08.10.2021 12:14
Составьте программу для нахождения количества дюймов d, которое содержится в x сантиметрах (1 дюйм = 2,54 см). исходное количество сантиметров задается с клавиатуры....
manilipitaozk746
08.10.2021 12:14
Составить программу, решающую следующую : дано трехзначное число. найти произведение его первой и второй цифры....
filysh74
19.01.2022 11:23
УсловиеВовочка установил дома ёлку, но на этом запас его энтузиазма иссяк. Наряжать ёлку оказалось сильно сложнее, чем он предполагал, поэтому он лег на кровать и просто стал кидать...
Dilyash2007
12.07.2021 14:58
Кто решить надо 4,5,6,7 задания...
alamakarova
28.12.2022 08:34
ПИТОН Описать рекурсию. Дано натуральное число N 1. Выведите все простые делители этого числа в порядке неубывания с учетом кратности. Реализуйте без цикла и генератора списка....
СекретнаяДевушка
01.07.2021 07:49
Дано натуральное число N. Сколько нечётных цифр в этом числе? Составьте блок-схему и напишите программный код. Например: 3857455 Результат:5...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = InputBox("Введите число")
d = (CInt(Right(n, 1))) ^ 2 Mod 10
MsgBox "Последняя цифра квадрата последней цифры числа " + n + "=" + CStr(d)
End Sub