13.

uses crt;
var i,n:longint; s:real;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=2 to n do 
      s:=s+(i-1)/i;
   writeln('S= ',s:0:5);
readln
end.

14.

uses crt;
var i,n,lt,gt:longint; s:real;
begin
clrscr;
   write('Nhap n: ');readln(n);
   lt:=-1; gt:=1;
   for i:=1 to n do 
      begin
         lt:=lt*-1;
         gt:=gt*i;
         s:=s+lt*(1/gt); 
      end;
   writeln('S= ',s:0:5);
readln
end.

15.

uses crt;
var i,n:longint; s:real;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do s:=sqrt(2+s);
   writeln('S= ',s:0:5);
readln
end.

Bài 13:

program bai_giai;
uses crt;
var n,i:longint;
    kq:real;
begin
    clrscr;
    readln(n);
    kq:=0;
    for i:=2 to n do
        kq:=kq+(n-1)/n;
    write(kq:0:2);
    readln;
end.

Bài 14: Theo công thức cuối cùng

program bai_giai;
uses crt;
var n,i,mu:longint;
    kq:real;
begin
    clrscr;
    readln(n);
    kq:=0;    mu:=1;
    for i:=1 to n do
        begin
            mu:=mu*i;
            if (i+1) mod 2=0 then kq:=kq+1/mu
            else kq:=kq-1/mu;
        end;
    write(kq:0:2);
    readln;
end.

Bài 15:

program bai_giai;
uses crt;
var n,i:longint;
    kq:real;
begin
    clrscr;
    readln(n);
    kq:=0;
    for i:=1 to n do
        kq:=sqrt(2+kq);
    write(kq:0:2);
    readln;
end.