Question

Написать программу вычисления суммы 1 + 1/2 + 1/3 + ... + 1/n для заданного числа n. Результат представить в виде несократимой дроби p/q (р, q — натуральные). Использовать подпрограммы алгоритма Евклида для определения НОД и сложения двух простых дробей.

Answer 1

function sum(n:integer):real;
var s:real;
begin
  s:=1/n;
  if n>1 then s:=s+sum(n-1);
  sum:=s;
end;
var n:integer;
begin
  readln(n);
  write('S = ',sum(n):0:3);
end.