Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
RazveD
0 / 0 / 0
Регистрация: 20.11.2011
Сообщений: 24
1

Определить количество ak последовательности

03.06.2012, 11:57. Просмотров 413. Ответов 1
Метки нет (Все метки)

Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an удовлетворяющих условию
2 в степени "к"< ak<k!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.06.2012, 11:57
Ответы с готовыми решениями:

Определить в последовательности количество положительных и отрицательных элементов
Собственно есть задача: Определить в последовательности a1, a2, …, an...

Определить количество элементов последовательности натуральных чисел, заключенных в промежутке от 1 до N
определить количество элементов последовательности натуральных чисел...

Определить и записать в ячейку А1 количество элементов последовательности, являющихся четными числами
Задание № 3: Задачи по теме «Цикл For» Вариант 2 В столбце D записать...

Определить количество членов последовательности: имеющие не четные порядковые номера и являющиеся четными числами
Даны натуральные чиcла n, a1 , a2,...,an. Определить количество членов...

Определить, какое количество чисел в последовательности больше своего последующего соседа
Вводится последовательность ненулевых чисел, завершаемая нулем. Определить,...

1
Казанский
14256 / 5915 / 1568
Регистрация: 24.09.2011
Сообщений: 9,313
03.06.2012, 12:20 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
Function RazveD(a) As Long
Dim k&, k_2#, k_fact#
k_2 = 1
k_fact = 1
For k = 1 To UBound(a)
    k_2 = k_2 * 2
    k_fact = k_fact * k
    If a(k) > k_2 And a(k) < k_fact Then RazveD = RazveD + 1
Next
End Function
Для проверки
Visual Basic
1
2
3
4
5
Option Base 1
 
Sub test()
Debug.Print RazveD(Array(2, 5, 10, 20, 20, 1000, 1000, 1.23E+15))
End Sub
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.06.2012, 12:20

Найти количество членов последовательности
Последовательность действительных чисел оканчивается нулем. Найти количество...

Найти количество членов последовательности
3. Найти количество членов последовательности а, a+n, a+2*n, … при условии,...

Найти количество нечетных элементов последовательности
Дана последовательность из n целых чисел. Найти количество нечетных элементов...


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

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

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