сумма 1+1/2+...+1/K - Pascal - Киберфорум

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.57/7:

@sameperson 0 / 0 / 0 Регистрация: 20.04.2010 Сообщений: 5

	сумма 1+1/2+...+1/K 21.04.2010, 15:05. Показов 1362. Ответов 1 Метки нет (Все метки) Дано целое число А(>1). Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+...+1/K будет меньше А, и саму эту сумму. Добавлено через 4 часа 11 минут вверх 0

Лучшие ответы (1)

Сообщение: #676312

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

21.04.2010, 15:05

Ответы с готовыми решениями:

Определить длину вектора Х, если х1 - сумма элементов матрицы A, х2 - сумма элементов матрицы B, х3 - сумма С
Заданны три квадратные матрицы A, B, C. Определить длину вектора Х (х1, х2, х3), если х1 - сумма элементов матрицы A, х2 - сумма элементов...

Сумма всех натуральных чисел от 1 до 1000, сумма цифр которых равна 10
Я сначала хотел написать рекурсивную функцию, которая сводила бы расчёт от 3-охзначных чисел к 2-узначным и 1-нозначным, но запутался...

Вычислить z = (s1 + s2) /2, где s1 - сумма положительных одного массива, а s2 - сумма отрицательных второго
оба задания надо проделать сначала через функцию, а потом через процедуру(не в одной программе). сделайте пожалуйста хотя бы одну:( 1....

Mиxaил

542 / 447 / 162

Регистрация: 10.12.2009

Сообщений: 1,857

21.04.2010, 15:41

Сообщение было отмечено sameperson как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a,i,k:integer;
sum:real;
begin
write('A = ');
readln(a);
sum:=0;
k:=1;
while sum<a do
begin
sum:=sum+1/k;
inc(k);
end;
writeln('k=',k-1);
writeln('sum=',sum-1/k);
readln;
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

21.04.2010, 15:41

Помогаю со студенческими работами здесь

Формула: найти процент, если известна сумма кредита, сумма возврата, и срок
Здравствуйте! помогите пожалуйста разобраться с задачей. Условие моей задача такого: Рассчитать ставку процента по кредиту, если известна...

Сумма денег S в банке под процентом T. Какая будет сумма через 1, 2, 3, 4, 5 лет?
Помогите((( сума денег S в банку под процентом T. Какая будет сума через 1, 2, 3, 4, 5, лет?

Составить программу, в которой вычислить z=(s1+s2)/(k1*k2), где s1 и k1 - сумма и количество положительных элементов массива Х[N]; s1 u k2 - сумма
Составить программу, в которой вычислить z=(s1+s2)/(k1*k2), где s1 и k1 - сумма и количество положительных элементов массива Х; s1 u k2 ...

Количество кратных 5, сумма четных на нечетных местах, сумма второго и наибольшего положительного в массиве
С++ 1. Найти количество элементов кратных 5 2. Найти сумму четных элементов массива стоящих на нечетных местах 3. Найти сумму...

Дано четырехзначное число. Определить больше ли сумма цифр заданного числа, чем сумма А
Дано четырехзначное число. Определить больше ли сумма цифр заданного числа, чем сумма А (Сумма А - второе число, вводится с клавиатуры). ...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Наверх