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

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

Задать свой вопрос
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)

Посодействовал? Нажимай Превосходнейший
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт