Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 * Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 * Указать сколько раз встречается буквенное сочетание * Сформировать вектор содержащий диагональные элементы матрицы * Кривая Коха - как правильно построить рекурсию * Кривая Коха - как правильно построить рекурсию * Четные числа увеличить в 2 раза, а нечетные - уменьшить на min элемент...

Получить массив и в нем найти числа больше 7 * Определения принадлежности точек полигону...

Определить впишется ли треугольник в окружность * Определить количество значений отрицательных элементов массива * Определить, является ли дробь периодической * Подсчитать число и сумму положительных элементов массива * Определить день недели * Функция возвращает количество заглавных русских букв в строке...

Кривая Коха - как правильно построить рекурсию * Найти максимальное число среди отрицательных (из 10 чисел) * Как правильно построить Ковер Серпинского * Создать вектор, содержащий суммы элементов строк массива * Напечатать в алфавитном порядке все звонкие согласные буквы * Расстояние между двумя городами * Найти минимальное число из квадратов данной последовательности * Определить день недели * Построения таблицы значений X и Y...

Как найти в строке нужный текст * Как сделать движущийся график * Как сделать подобие кардиограммы * Найти среднее арифметическое последних элементов * Средствами VB получить тактовую частоту процессора * Найти геометрическую прогрессию * Найти геометрическую прогрессию * Как заполнить матрицу в Visual Basic...

Вычисление определенного интеграла методом Симпсона * Вычислить значения медиан треугольника...

Вычислить наибольшие значения Y(i) если B(i) задано массивом * Вывести наименьшее из трех чисел * Выполнить перерасчет зарплаты, увеличив ее на 10%...

Как добавить новые данные в базу данных 2010-01-12 07:00 Александр Как добавить новые данные в базу данных Меню Проект > Ссылки > Microsoft DAO 3.6 Object Library Dim RS As DAO.Recordset Dim db As DAO.Database Dim strSQL As String 'подключение к базе данных Access Set db = DAO.OpenDatabase(App.Path & \db.mdb) Dim strData As String 'диалоговое окно ввода данных strData = InputBox"Введите данные, "Добавление данных) 'если данные не указаны, выход из процедуры If Len(strData) ...

Изменить порядок следования элементов в массиве на обратный 2010-01-11 07:00 Александр Изменить порядок следования элементов в массиве на обратный Dim A(n) As Integer Private Sub Command1_Click) Dim buf As Integer y = Int(UBound(A) / 2 For x = 0 To UBound(A) If x ...

Изменить порядок следования элементов в массиве на обратный 2010-01-08 07:00 Александр Изменить порядок следования элементов в массиве на обратный Const N=10 Dim Z as double Dim A(1 to N) as Double Sub NNN) Dim I as integer For I=1 to N\2 Z=A(I) A(I=A(Ubound(A-I+1) A(Ubound(A-I+1=Z Next End Sub ...