Sub aaa() n = InputBox("Введите число") d = (CInt(Right(n, 1))) ^ 2 Mod 10 MsgBox "Последняя цифра квадрата последней цифры числа " n "=" CStr(d) End Sub
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.