Задать вопрос
ИнформатикаИнформатика
28 июня, 19:08

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

подсчитать количество таких,

сумма квадратов цифр которых

кратна двум или трем.

Ответ записать целым числом.

+5
Ответы (1)
  1. 28 июня, 20:02
    0
    У меня получилось 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)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Среди всех натуральных четырехзначных чисел подсчитать количество таких, сумма квадратов цифр которых кратна двум или трем. Ответ записать ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Среди всех натуральных четырехзначных чисел подсчитать количество таких, сумма квадратов цифр, которых кратна двум или трем. Ответ дайте целым числом
Ответы (1)
Среди всех натуральных чентырехзначных чисел подсчитать кол-во таких, сумма квадратов цифр, которых кратна двум или трем.
Ответы (2)
Дано двузначное числи. Определит. А) кратна ли трем сумма его цифр Б) кратна ли сумма его цифр числу a.
Ответы (1)
У скольких натуральных чисел от 1 до 2 в степени N, где N = 10, сумма цифр кратна четырем? Комментарий. Например, для N=3N=3 рассматриваются такие числа: 1, 2, 3, 4, ..., 8. Сумма цифр кратна четырем у двух из них.
Ответы (1)
1) В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3. 2) В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
Ответы (1)
Помогите с ответом
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Сколько четвёртых и сколько восьмых долей единицы в данном числе 1/2, 1 1/2,2 1/4,
Нет ответа
Данные имена существительные поставь форме множественного числа и запиши пары слов обозначь в словах ту часть которая изменяется при изменении слова по числам
Нет ответа
Яркий солнечный день. светит ... дует ... а вокруг ... Слова для составления предложения. Пушистая, молодая, зеленая, мягкая, сочная, как бархатная зеленеет, словно раскинулся ковер Желтые поговки, яркие фонарики огоньки, маленькие солнышки Растут,
Нет ответа
Главная » Информатика » Среди всех натуральных четырехзначных чисел подсчитать количество таких, сумма квадратов цифр которых кратна двум или трем. Ответ записать целым числом.
Регистрация Забыл пароль