Question

vba найти сумму квадратов цифр заданного числа n

Answer 1

Dim n As Doublen = InputBox("Введите n")n = (n * n) + (n * n)'или n = (n ^ 2) + (n ^ 2)