|
|
| Другие темы раздела | |
|
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. Показов 18213. Ответов 1
Метки (Все метки)
Вернуться к обсуждению: Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+.+1/k будет меньше А и саму эту сумму Turbo Pascal
0
|
|
| 10.07.2012, 12:06 | |
|
Готовые ответы и решения:
1
Вывести наибольшее из целых чисел К,для которых сумма 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 будет больше A, и саму эту сумму.
|