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

@Pascalpro · Регистрация: 12.09.2013

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

@Samhain · 02.10.2013, 14:45

Pascalpro,

Pascal

var s,a:real;
    n:integer;
begin
  repeat
    write('a = ');readln(a);
  until a>1;
  n:=1;s:=0;
  repeat
    s:=s+1/n;
    n:=n+1;
  until s>a;
  writeln('n = ',n,', s = ',s:0:4);
  readln
end.

@Pascalpro 0 / 0 / 0 Регистрация: 12.09.2013 Сообщений: 20
		1
	Даю вещественно число A(>1). Вывести наименьшее из целых чиселN, для которых сумма 1+1/2+...+1/N будут больше A, и саму эту сумму 02.10.2013, 14:03. Показов 1480. Ответов 1 Метки нет (Все метки) Даю вещественно число A(>1). Вывести наименьшее из целых чиселN, для которых сумма 1+1/2+...+1/N будут больше A, и саму эту сумму. Помогите сделать программу, которая будет это решать __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение