Информатика, вопрос задал HardSJ , 9 лет назад

Написать программу, позволяющую по последней цифре числа определить последнюю цифру его квадрата.
Язык программирования VBA

Ответы на вопрос

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