Дано действительное a. Найти: наименьшее натуральное число n, такое что 1+1/2+.+1/n > a

@WestDog · Регистрация: 02.05.2020

Author24 — интернет-сервис помощи студентам

Прошу, пожалуйста, помогите.

@ValentinNemo · 02.05.2020, 23:06

Pascal

program Project1;
var
  n: integer; { Переменная для организации цикла и вычисления члена ряда}
  sum: real; { Переменная для хранения значения суммы}
  a: integer; { Переменная для хранения значений аргументов}
begin
  write('Введите значение аргумента A: ');
  readln(a);
  sum:= 0;         { Установка переменных в начальное состояние}
  n:= 0;
  repeat
    inc(n);       { Приращение аргумента}
    sum:= sum + 1/n;  { Вычисление суммы }
  until sum > a;   {Цикл с постусловием. Как только sum > a вычисление прекращается}
  writeln('Значение числа N: ',n); { Вывод ответа в консоль}
  readln;
end.

@WestDog 1 / 1 / 0 Регистрация: 02.05.2020 Сообщений: 7
		1
	Дано действительное a. Найти: наименьшее натуральное число n, такое что 1+1/2+.+1/n > a 02.05.2020, 20:58. Показов 3163. Ответов 1 Метки pascale (Все метки) Прошу, пожалуйста, помогите. 0

	02.05.2020, 23:06

Опции темы

Дано действительное a. Найти: наименьшее натуральное число n, такое что 1+1/2+.+1/n > a

Решение