Информатика | 10 - 11 классы
Среди всех натуральных чентырехзначных чисел подсчитать кол - во таких, сумма квадратов цифр, которых кратна двум или трем.
Среди четырёхзначных чисел найти все числа сумма цифр, которых кратно 3 и больше 15?
Среди четырёхзначных чисел найти все числа сумма цифр, которых кратно 3 и больше 15.
Среди всех натуральных четырехзначных чисел подсчитать количество таких, сумма квадратов цифр, которых кратна двум или трем?
Среди всех натуральных четырехзначных чисел подсчитать количество таких, сумма квадратов цифр, которых кратна двум или трем.
Ответ дайте целым числом.
Pascal ABCВычислить сумму квадратов отрицательных чисел, стоящих на местах, кратных 3 ; подсчитать количество чисел, не принадлежащих промежутку [А, В)?
Pascal ABC
Вычислить сумму квадратов отрицательных чисел, стоящих на местах, кратных 3 ; подсчитать количество чисел, не принадлежащих промежутку [А, В).
Среди двухзначных чисел найдите те, сумма квадратов цифр которых делиться на 13?
Среди двухзначных чисел найдите те, сумма квадратов цифр которых делиться на 13.
В ПАСКАЛЕ!
Пожалуйста!
Подсчитайте сумму всех трёхзначных чисел , у которых первая цифра 4 , а последняя 9?
Подсчитайте сумму всех трёхзначных чисел , у которых первая цифра 4 , а последняя 9.
Среди двузначных чисел найти те, сумма квадратов цифр которых делится на13?
Среди двузначных чисел найти те, сумма квадратов цифр которых делится на13.
Среди всех натуральных четырехзначных чиселподсчитать количество таких,сумма квадратов цифр которыхкратна двум или трем?
Среди всех натуральных четырехзначных чисел
подсчитать количество таких,
сумма квадратов цифр которых
кратна двум или трем.
Ответ записать целым числом.
У скольких натуральных чисел от 1 до 2 в степени 12 сумма цифр кратна четырем?
У скольких натуральных чисел от 1 до 2 в степени 12 сумма цифр кратна четырем?
У скольких натуральных чисел от 1 до 2 в степени 10 сумма цифр кратна четырем?
У скольких натуральных чисел от 1 до 2 в степени 10 сумма цифр кратна четырем?
Подсчитать сумму всех элементов кратных 2 , в массиве из 10 чисел?
Подсчитать сумму всех элементов кратных 2 , в массиве из 10 чисел.
На странице вопроса Среди всех натуральных чентырехзначных чисел подсчитать кол - во таких, сумма квадратов цифр, которых кратна двум или трем? из категории Информатика вы найдете ответ для уровня учащихся 10 - 11 классов. Если полученный ответ не устраивает и нужно расшить круг поиска, используйте удобную поисковую систему сайта. Можно также ознакомиться с похожими вопросами и ответами других пользователей в этой же категории или создать новый вопрос. Возможно, вам будет полезной информация, оставленная пользователями в комментариях, где можно обсудить тему с помощью обратной связи.
У меня получилось 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)
P.
S. Прошу прощения за прошлый ответ, перепутал и соединил две задачи = ).