Определение у последней цифры - квадрат - VB
Формулировка задачи:
Напишите программу, которая по последней цифре числа определяет последнюю цифру его квадрата,
Решение задачи: «Определение у последней цифры - квадрат»
textual
Листинг программы
Private Function QX2(ByVal x As Long) As Long QX2 = (x Mod 10) * (x Mod 10) Mod 10 End Function