mã đề 2

program ct;

uses crt;

var i,n : integer ;s: real;

begin clrscr;

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

s:=0; i:=i+1;

for i:=1 to n do s:=s+1/(i*(i+2);

writeln('tong s=',s);

readln

end.

mã đề 1

program ct;

uses crt;

var i,n : integer ;s: real;

begin clrscr;

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

s:=0; i:=i+1;

for i:=1 to n do s:=s+1/(i*(i+1);

writeln('tong s=',s);

readln

end.

xin 5 sao+ctlhn nha !

 

Đề 1:

program de1;

uses crt;

var i,n:integer;

     S:real;

begin

clrscr;

write(' n = '); readln(n);

S:=0;

for i:=1 to n do S:=S+1/(i*(i+1));

writeln('Tong la: ',S:3:1);

readln;

end.

Đề 2:

program de2;

uses crt;

var i,n:integer;

     S:real;

begin

clrscr;

write(' n = '); readln(n);

S:=0;

for i:=1 to n do S:=S+1/(i*(i+2));

writeln('Tong la: ',S:3:1);

readln;

end.