сервис вопросов и ответовСреди всех натуральных четырехзначных чисел подсчитать колличество таких, сумма квадратов цифр, которых кратна двум или трем, ответ зписать целым
10-11 класс|
|
числом...!!!!!
5664674
25 сент. 2013 г., 0:21:09 (10 лет назад)
клюся
25 сент. 2013 г., 2:07:25 (10 лет назад)
У меня получилось 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)
Помог? Жми Лучший
Ответить
Другие вопросы из категории
56) В некоторой стране автомобильный номер состоит из 8 символов. Первый символ – одна из 26 латинских букв, остальные семь – десятичные цифры. Пр
имер номера – A1234567. Каждый символ кодируется минимально возможным количеством бит, а каждый номер – одинаковым и минимально возможным количеством байт. Определите объем памяти, необходимый для хранения 30 автомобильных номеров
В таблице приведены запросы к поисковому серверу.
Расположите обозначения запросов в порядке возрастания количества страниц,
которые найдет поисковый сервер по каждому запросу. Для обозначения логической
операции “ИЛИ” в запросе используется символ |, а для логической операции “И” –
&.
1) олимпиады &
соревнования
2) олимпиады &
соревнования & участники & победители
3) олимпиады &
соревнования | участники
4) олимпиады | соревнования
| участники
Читайте также
Сумма цифр. Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В , сумма цифр которых четна. Программа
получает на вход два натуральных числа А и В, не превосходящих 10^9^ А<=В . Программа должна вывести одно число - кол-во натуральных чисел, больше или равных А и меньших или равных В, сумма цифр которых четна.
1. В последовательности чисел подсчитать произведение чисел, кратных 3.
2. В последовательности чисел сравнить, что больше сумма положительных или про-изведение отрицательных.
3. В последовательности чисел определить предпоследнее отрицательное число. (При решении введите дополнительную переменную для хранения предпоследнего отрицательного числа).
помогите пожалуууйста:(
Найти сумму всех натуральных двух чисел которые заканчиваются на цифру 3
Вы находитесь на странице вопроса "Среди всех натуральных четырехзначных чисел подсчитать колличество таких, сумма квадратов цифр, которых кратна двум или трем, ответ зписать целым", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.