program pht; uses crt; var i, n, k, j: integer; s: real; tu, mau: longint; begin clrscr; write('Nhap n = '); readln(n); s:=1/2; for i:=2 to n do begin tu:=1; mau:=1; for j:=1 to i do tu:=tu*j; for k:=1 to i do mau:=mau*(i+1); if i mod 2 = 0 then s:=s-(tu/mau) else s:=s+(tu/mau); end; write('S = ', s:3:6); readln end.
uses crt; var n,lt,gt,i,j:longint; s:real; begin clrscr; write('Nhap n= (n<100) ');readln(n); gt:=1; for i:=1 to n do begin gt:=gt*i; lt:=1; for j:=1 to i do lt:=lt*(i+1); if i mod 2=1 then s:=s+gt/lt else s:=s-gt/lt; end; writeln('S= ',s:0:6); readln end.
