1)дано целое число N(больше 0). Найти сумму 1+1/2+1/3.....1/N(вещественное число). Входные данные: ввести целое числоN(1<=n<=20)

Выходные данные: вывести сумму 1+1/2=1/3+.....1N с точностью до 4 цифр в дробной части.( в паскале)

1

Ответы и объяснения

  • nelle987
  • Ведущий Модератор
2013-03-17T17:09:46+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var H: real;

   N, i: integer;

begin

   H := 0;

   readln(N);

   for i := 1 to N do

      H := H + 1/i;

   writeln(H:6:4)

end.