viết chương trình cho phép nhập vào số nguyên n(1<=n<=10000). In ra màn hình giá trị của biểu thức T=1+1/2^2+1/3^2+...+1/n^2( kết quả làm tròn hai chữ số thập phân)

1 câu trả lời

Program BTH;
uses crt;
var a,b:longint;
c:real;
Begin
clrscr;
Write('Nhap so n: ');readln(a);
For b:=1 to a do
c:=c+1/sqr(b);
writeln('Tong day so tren la: ',c:4:2);
readln;
end.