Александр
Профи
(812)
7 лет назад
120
240
360
480
760
840
920
Простенький макрос в Excel
Sub tt()
For i = 100 To 999
If i Mod 40 = 0 Then
n1 = Mid(i, 1, 1)
n2 = Mid(i, 2, 1)
n3 = Mid(i, 3, 1)
n = n1 ^ 2 + n2 ^ 2 + n3 ^ 2
If n Mod 5 = 0 Then
If n Mod 25 <> 0 Then
Z = Z + 1
Range("A" & Z) = i
End If
End If
End If
Next i
End Sub