Question

viết trương trình tính giái trị biểu thức 1+1 phần 2 mũ 2+1 phần 3 mũ 2+.....n mũ 2

Answer 1

Var i : integer; S : real;

Begin

Read(S);

S := 0

For i := 1 to n do S := S+1/(i*i)

Write (S);

Readln;

End.

Answer 2

var i,n:integer;

s:real;

begin

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

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

write('Tong la ',s:10:2);

readln;

end.