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

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

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

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

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

Дано натуральное число n. Определить: сколько цифр в числе n, чему равна сумма его цифр
Лаба Web-программирование Дано натуральное число n. Определить: сколько цифр в числе n, чему равна...

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

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

2
756 / 263 / 57
Регистрация: 13.12.2009
Сообщений: 1,022
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
0 / 0 / 0
Регистрация: 27.02.2011
Сообщений: 8
27.02.2011, 11:30  [ТС] 3
all_angarsk, спасибо большое!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.02.2011, 11:30

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Строки. Дано натуральное число. Чему равна сумма его цифр
дано натуральное число n. чему равна сумма его цифр

Дано натурально число n. Сколько цифр в этом числе. Чему равняется сумма цифр. Найти первую цифру
Желательно в С

Дано натурально число n. Сколько цифр в этом числе. Чему равняется сумма цифр. Найти первую цифру
Я написал для нахождения суммы цифр. Но выдает ошибку process exited with value 0 и какие-то числа....

Дано целое число n. Чему равна сумма его цифр кратных 3. на pascal
Дано целое число n. Чему равна сумма его цифр кратных 3.


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

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

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