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.