Question

Viết chương trình Pascal tính giá trị của biểu thức sau:

(1 + 1/1²) (1 + 1/2²) ... (1 + 1/n²)

Answer 1

Lời giải :

program hotrotinhoc ;

var i,n : integer ;

A: real ;

begin

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

A:=1;

for i:=1 to n do

A:=A*(1+1/(i*i));

write('Ket qua la',A);

Readln

end.

Answer 2

var i,n:integer;

s:real;

begin

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

s:=0;

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

write(s);

readln;

end.

Answer 3

lm lại nhầm

var i,n:integer;

s:real;

begin

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

s:=1;

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

write(s);

readln;

end.

Answer 4

program hotrotinhoc ;

var i,n : integer ;

A: real ;

begin

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

A:=1;

for i:=1 to n do

A:=A*(1+1/(i*i));

write('Ket qua la',A);

Readln

end.