Написать программу, позволяющую по последней цифре числа определить последнюю цифру его квадрата.
Язык программирования VBA
Ответы на вопрос
Ответил Аноним
0
Sub aaa()
n = InputBox("Введите число")
d = (CInt(Right(n, 1))) ^ 2 Mod 10
MsgBox "Последняя цифра квадрата последней цифры числа " + n + "=" + CStr(d)
End Sub
n = InputBox("Введите число")
d = (CInt(Right(n, 1))) ^ 2 Mod 10
MsgBox "Последняя цифра квадрата последней цифры числа " + n + "=" + CStr(d)
End Sub
Новые вопросы