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

@zuza · Регистрация: 23.06.2013

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

@rjxxx · 23.06.2013, 23:53

на просторах интернета:

Pascal

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.

@zuza 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

Опции темы

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

Решение