0 / 0 / 0
Регистрация: 23.06.2013
Сообщений: 9
1

Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + . + 1/N будет больше A, и саму эту сумму

23.06.2013, 23:42. Показов 10344. Ответов 1
Метки нет (Все метки)

Дано вещественное число A (> 1). Вывести наименьшее из целых чисел N, для которых сумма 1 + 1/2 + ... + 1/N будет больше A, и саму эту сумму.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2013, 23:42
Ответы с готовыми решениями:

Дано вещественное число A (>1). Вывести наименьшее из целых чисел N, для которых сумма 1+…+1/N будет больше A, и сумму
Добрый вечер всем. Нужна помощь в задании по Pascal ABC Само задание: Дано вещественное число...

Вывести наименьшее из целых чисел K, для которых сумма 1 + 1/2 + … + 1/K будет больше A, и саму эту сумму.
Надо решить две задачки выручите пожалуйста! 1.Дано вещественное число X и целое число N (> 0)....

Вывести наибольшее из целых чисел N, для которых сумма будет больше A
Помогите пажалуйста с программой, очень срочно надо. Задача: Дано вещественное число A (>1)....

Даю вещественно число A(>1). Вывести наименьшее из целых чиселN, для которых сумма 1+1/2+...+1/N будут больше A, и саму эту сумму
Даю вещественно число A(>1). Вывести наименьшее из целых чиселN, для которых сумма 1+1/2+...+1/N...

1
Фрилансер
73 / 73 / 51
Регистрация: 25.10.2011
Сообщений: 317
23.06.2013, 23:53 2
Лучший ответ Сообщение было отмечено zuza как решение

Решение

на просторах интернета:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a,s:real;
  n:longint;
begin
  repeat
    write('Введите число A=');
    readln(a);
  until a>1;
  n:=1;
  s:=n;
  while s<=a do
    begin
      inc(n);
      s:=s+1/n;
    end;
  writeln('Наименьшее N=',n,' сумма S=',s:0:5);
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2013, 23:53
Помогаю со студенческими работами здесь

Вывести наибольшее из целых чисел, для которого заданная сумма будет меньше заданного числа, и саму эту сумму
Дано числа А&gt;1. Вывести наибольшее их целых чисел К, для некоторых сумма 1+1/2+...+1/К будет меньше...

Дано число A (>1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+.+1/k будет меньше А и саму эту сумму
Дано число A (&gt;1). Вывести найбольшее из целых чисел К, для которых сумма 1+1/2+...+1/k будет...

Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее благодарю. 2)...

Вывести наименьшее из целых чисел N, для которых сумма будет больше A
Дано вещественное число А(&gt;1). Вывести наименьшее из целых чисел N, для которых сумма 1+1/2+......


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru