Question

Viết chương trình in kết quả ra màn hình với n là số nguyên dương được nhập từ bàn phím

\(\left(1+\dfrac{1}{1^2}\right)\left(1+\dfrac{1}{2^2}\right).\left(1+\dfrac{1}{3^2}\right).....\left(1+\dfrac{1}{n^2}\right)\)

Answer 1

var i,n:integer;

tich:real;

begin

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

tich:=1;

for i:=1 to n do tich:=tich*(1+1/(i*i));

write('ket qua la:',tich);

readln

end.

Answer 2

s:=1;
for i:= 1 to n do
s:=s*(1+(1/sqr(n)));
write(s);