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.
Câu hỏi trong lớp
Xem thêm