Question

Viết chương trình tính tổng sau :

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

Với n là số tự nhiên nhập từ bàn phím

Answer 1

var i,n:integer;

Tong:real;

begin

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

Tong:=0;

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

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

readln

end.

Answer 2

program tinhtong;

uses crt;

var n,i:integer; s:real;

begin

clrscr;

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

s:=0;

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

write('tong vua tinh la:',s:2:3);

readln;

end.

người mới vô có gì sai sót mong bỏ qua :)).