сервис вопросов и ответовСреди всех натуральных четырехзначных чисел
10-11 класс|
|
подсчитать количество таких,
сумма квадратов цифр которых
кратна двум или трем.
Ответ записать целым числом.
Fatma
12 февр. 2016 г., 13:21:36 (8 лет назад)
Nelyamikhaylov
12 февр. 2016 г., 15:20:35 (8 лет назад)
У меня получилось 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
Имя входного файла:E.in имя выходного файла E.out Дается.. ... Имя входного файла:E.in имя выходного файла E.out Дается последовательность из N
чисел.найдите максимальное произ.среди всех пар этих чисел.
Вы находитесь на странице вопроса "Среди всех натуральных четырехзначных чисел", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.