S=1/3+1/4+1/5+......+1/n+2 Hãy chạy chương trình với các bộ dữ liệu(trong pasca) n=9,n=20,n=50 viết chương trình theo mô tả thuật toán mô tả thuật toán B1:S:=0;i:=1; B2:S;=S+1/(i+2); B3: nếu i<n thì quay lại bước 2. ngược lại thì kết thúc thuật toán

n=9:

uses crt;
var i:longint;s:real;const n=9;
begin
 clrscr;
  s:=0;
  i:=1;
   repeat
    s:=s+1/(i+2);
    inc(i);
   until i>n;
  write('s=',s:4:2);
 readln;
end.

n=20:

uses crt;
var i:longint;s:real;const n=20;
begin
 clrscr;
  s:=0;
  i:=1;
   repeat
    s:=s+1/(i+2);
    inc(i);
   until i>n;
  write('s=',s:4:2);
 readln;
end.

n=50:

uses crt;
var i:longint;s:real;const n=50;
begin
 clrscr;
  s:=0;
  i:=1;
   repeat
    s:=s+1/(i+2:4:2);
    inc(i);
   until i>n;
  write('s=',s);
 readln;
end.

Program baitap;

Uses crt;

Var n,i:integer;

      S:real;

Begin

Clrscr;

Write('n='); Readln(n);

S:=0; i:=1;

While i<=n do

     Begin

     S:=S+1/(i+2);

     i:=i+1;

     End;

Writeln('S=',S:4:1);

Readln

End.