Статистика
Всего в нашей базе более 4 326 000 вопросов и 6 443 775 ответов!

Среди всех натуральных четырехзначных чисел

10-11 класс

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

Fatma 12 февр. 2016 г., 13:21:36 (3 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Nelyamikhaylov
12 февр. 2016 г., 15:20:35 (3 года назад)

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

Dim i As Integer 
Dim s As Integer
Dim d As Integer

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)

Ответить

Читайте также

помогите пожалуууйста:(

Найти сумму всех натуральных двух чисел которые заканчиваются на цифру 3



Вы находитесь на странице вопроса "Среди всех натуральных четырехзначных чисел", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.