|
|
Другие темы раздела | |
Turbo Pascal Где можно найти object pascal
https://www.cyberforum.ru/ turbo-pascal/ thread621587.html где можно найти object pascal |
Turbo Pascal Массив: Определить какое количество осадков выпало в виде снега и какое в виде дождя В одном массиве имеется информация о количестве осадков, выпавших за каждый день месяца, в другом массиве о температуре воздуха в эти дни. Определить какое количество осадков выпало в виде снега и какое в виде дождя (считать что идет дождь если температура воздуха выше 0 градусов) |
Turbo Pascal Cтрока: Проверить, является ли введенная с клавиатуры строка палиндромом?
https://www.cyberforum.ru/ turbo-pascal/ thread621559.html Проверить является ли введенная с клавиатуры строка палиндромом(т.е. слева на право и справа на лево читается одинаково, например "а роза упала на лапу азора"). пробелами пренебрегать |
Turbo Pascal ООП в Паскаль
https://www.cyberforum.ru/ turbo-pascal/ thread621507.html Назрел такой вопрос:возможно ли создание программ для Windows на паскаль?Пытался откомпилить это: program HelloApp; uses WObjects; type THelloWord = object(TApplication) procedure InitMainWindow; virtual; end; |
Turbo Pascal Разделить предметы на две группы так, чтобы общие веса были максимально близки Имеется n предметов, веса которых равны A1, A2, …, AN. Разделите эти предметы на две группы так, чтобы общие веса двух групп были максимально близки. помогите пожалуйста |
Turbo Pascal Получить новый массив путем деления всех элементов массива на его наименьший элемент
https://www.cyberforum.ru/ turbo-pascal/ thread621161.html Решите плиз задачи 2)19. Дан двумерный массив размерностью n*m, в котором не все элементы равны нулю. Получить новый массив путем деления всех элементов массива на его наименьший элемент. Если наименьший элемент равен нулю, то вывести соответствующее сообщение, а элементы массива оставить без изменения. |
Turbo Pascal Найти среднее арифметическое наибольшего и наименьшего значений элементов матрицы Дана действительная матрица a 6*9 . Найти среднее арифметическое наибольшего и наименьшего значений ее элементов. Program mas; const n=6; m=9; var a: array of integer; i,j,min,max: integer; begin randomize; https://www.cyberforum.ru/ turbo-pascal/ thread621068.html |
В файл H записать все латинские буквы (большие и маленькие) файлов F и G Turbo Pascal Даны символьные файлы F и G. В файл H записать все латинские буквы (большие и маленькие) файлов F и G. Program fail12; Var f,g,h:text; s,s1:string; i:byte; Begin Assign(f,'a.txt');Reset(f); Assign(g,'b.txt');Reset(g); Assign(h,'c.txt');Rewrite(h); |
Turbo Pascal Подпрограммы: Вычислить определитель матрицы
https://www.cyberforum.ru/ turbo-pascal/ thread621057.html Сделать с помощью подпрограммы. 1 Вычислить определитель матрицы А (3х3). |
Turbo Pascal Подпрограммы: Вычислить тангенс гиперболический Сделать с помощью подпрограммы. 3 Вычислить тангенс гиперболический tg x=\frac{{e}^{x}-{e}^{-x}}{{e}^{x}+{e}^{-x}} https://www.cyberforum.ru/ turbo-pascal/ thread621056.html |
Пусть дано n произвольных четырехугольников. Найти четырехугольник с максимальной площадью Turbo Pascal Пусть дано n произвольных четырехугольников, заданных координатами своих вершин. Найдите четырехугольник с максимальной площадью. Напишите функцию для нахождения площади четырехугольника. |
Turbo Pascal Для каждой буквы заданного текста указать,сколько раз она встречается в тексте. Для каждой буквы заданного текста указать,сколько раз она встречается в тексте. https://www.cyberforum.ru/ turbo-pascal/ thread621048.html |
0 / 0 / 0
Регистрация: 08.07.2012
Сообщений: 11
|
|
0 | |
Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+.+1/k будет меньше А и саму эту сумму - Turbo Pascal - Ответ 325396510.07.2012, 12:06. Показов 18215. Ответов 1
Метки (Все метки)
Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+...+1/k будет меньше А и саму эту сумму.
Вернуться к обсуждению: Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+.+1/k будет меньше А и саму эту сумму Turbo Pascal
0
|
10.07.2012, 12:06 | |
Готовые ответы и решения:
1
Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + . + 1/N будет больше A, и саму эту сумму Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + . + 1/N будет больше A, и саму эту сумму Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму Вывести наибольшее из целых чисел К,для которых сумма 1+2+...+К будет меньше или равна N, и саму эту сумму. |
10.07.2012, 12:06 | |
10.07.2012, 12:06 | |
Помогаю со студенческими работами здесь
0
Вывести наибольшее из целых N, для которых сумма 1+1\2+...+1\N будет меньше А, и саму эту сумму. Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+...+1/N будет больше А, и саму эту сумму. Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + ... + 1/N будет больше A, и саму эту сумму. Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму. |