Hãy xác định Input, Output và viết chương trình bằng 2 vòng lặp (while, For) tính P=1/2.2/3.3/4....n/(n+1)

Input: nhập n

Output: P=1/2*2/3*...*n/(n+1).

-Sử dụng vòng lặp while-do:

program oken;

uses crt;

var p:real;

      i,n:integer;

begin

clrscr;

write('nhap n: '); readln(n);

i:=1; P:=0;

while i<=n do

  begin

     p:=p+(i/(i+1));

     i:=i+1;

  end;

writeln('P=',p:0:3);

readln;

end.

-Sử dùng vòng lặp For-to-do:

program oken;

uses crt;

var i,n:integer;

     p:real;

begin

clrscr;

write('nhap n: '); readln(n);

p:=0;

for i:=1 to n do

   p:=p+(i/(i+1));

writeln('P=',p);

readln;

end.

Input: n

Output: P = 1/2 . 2/3 . 3/4 . n/(n+1)

---

For ... do

---

Program FNG;
Uses crt;
Var n,i: longint;
    s: extended;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1;
        For i:=1 to n do
                s:=s+i/(i+1);
        Write('S = ',s:0:2);
        Readln
End.

---

While ... do

---

Program FNG;
Uses crt;
Var n,i: longint;
    s: extended;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1; i:=1;
        While i<=n do
        Begin
                s:=s+i/(i+1);
                inc(i);
        End;
        Write('S = ',s:0:2);
        Readln
End.