Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
banny4
0 / 0 / 0
Регистрация: 27.02.2011
Сообщений: 8
1

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

27.02.2011, 03:18. Просмотров 2607. Ответов 2
Метки нет (Все метки)

Помогите! Не могу решить сложное задание в Excel
Дано натуральное число n. Определить, сколько парных цифр в числе n. Чему равна сумма нечетных его цифр?
Как его решать?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2011, 03:18
Ответы с готовыми решениями:

Дано натуральное число n. Составить программу, подсчитывающую количество цифр числа n, сумму его цифр
не могу понять как посчитать сумму цифр веденного числа

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

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

Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Здравствуйте, помогите пожалуйста напишите код без MsgBox (на форуме нашёл только с ним) на задачу...

Дано натуральное число. Найти сумму квадратов всех его цифр
Дано натуральное число n. Найти сумму квадратов всех его цифр. Для ввода исходных данных и вывода...

2
all_angarsk
755 / 262 / 57
Регистрация: 13.12.2009
Сообщений: 1,021
27.02.2011, 05:17 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub CommandButton1_Click()
Dim s As String, k As Integer, f(10) As Integer
Dim d(100)
s = Cells(1, 1) ' ввод натурального числа
n = 3
For i = 1 To Len(s)
d(i) = Mid(s, i, 1)
 
If (d(i) Mod 2) = 1 Then
k = k + CInt(d(i))
End If
Select Case d(i)
Case 0
f(0) = f(0) + 1
Case 1
f(1) = f(1) + 1
Case 2
f(2) = f(2) + 1
Case 3
f(3) = f(3) + 1
Case 4
f(4) = f(4) + 1
Case 5
f(5) = f(5) + 1
Case 6
f(6) = f(6) + 1
Case 7
f(7) = f(7) + 1
Case 8
f(8) = f(8) + 1
Case 9
f(9) = f(9) + 1
End Select
Next
Cells(2, 1) = "Сумма нечетных цифр = " & k
For j = 0 To 9
If f(j) >= 2 Then
Cells(n, 1) = "Цифра " & j & " парная и встречается " & f(j) & " раз"
n = n + 1
End If
Next
End Sub
1
banny4
0 / 0 / 0
Регистрация: 27.02.2011
Сообщений: 8
27.02.2011, 11:30  [ТС] 3
all_angarsk, спасибо большое!!!
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2011, 11:30

Вычислить, чему равна сумма цифр числа
Дано натуральное число n (n ≤ 100).Чему равна сумма его цифр?

Дано трехзначное число. Проверить, будет ли сумма его цифр четным числом
Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Пожалуйста напишите как...

Равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.