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

Формулировка задачи:

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

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

textual
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.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы