Среди всех натуральных четырехзначных чисел подсчитать колличество таких, сумма квадратов...

Question

Среди всех натуральных четырехзначных чисел подсчитать колличество таких, сумма квадратов цифр, которых кратна двум или трем, ответ зписать целым числом...!!!!!

Answer 1

У меня получилось 6216

Dim i As Integer 
Dim s As Integer
Dim d As Integer
' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
For i = 1000 To 9999       
     s = CInt((CInt(Mid(CStr(i), 1, 1))) ^ 2 + (CInt(Mid(CStr(i), 2, 1))) ^ 2 + (CInt(Mid(CStr(i), 3, 1))) ^ 2 + (CInt(Mid(CStr(i), 4, 1))) ^ 2)     
      If s Mod 2 = 0 Or s Mod 3 = 0 Then d += 1      
  Next
        MsgBox(d)

Помог? Жми Лучший