63

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

09 марта 2023

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

категория: информатика



89

У меня получилось 6216Dim i As Integer Dim s As IntegerDim d As IntegerFor 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) P.S. Прошу прощения за прошлый ответ, перепутал и соединил две задачи=)

Знаете ответ?


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