Viết chương rình thực hiện yêu cầu: nhập số nguyên n từ bàn phím. Tính và in ra màn hình tổng sau: T=1/(1.3) +1/(2.4) +1/(3.5) +...+1/(n.(n+2))

2 câu trả lời

uses crt;

var a:real;

i,n:longint;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+1/(i*(i+2));

writeln(a:4:2);

readln;

end.

uses crt;

var i, n : integer; T : real;

begin

clrscr;

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

for i := 1 to n do 

T := T + 1 / (i * (i + 2));

write('T = ', T:2:2);

readln

end.