Tình giá trị của biểu thức (1+1/2^2)(1+1/2^2)......(1+1/n^2)

2 câu trả lời

uses crt;
var S:real; i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do S:=S+(1+1/(i*i));
   write('S=',S:4:2);
   readln
end.

uses crt;

var i, n : longint; Sum : real;

begin

clrscr;

i := 1; Sum := 1;

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

while i <= n do

begin Sum := Sum * (1 + 1 / sqr(i));

i := i + 1; end;

write('Gia tri bieu thuc = ', Sum : 2 : 2);

readln

end.