Question

viết ct tính và in ra tính tổng s =1 + 1/(a+1)^2 +1/(a+2)^2+...+1/(a+m)^2

Answer 1

uses crt;

var a,m,i:integer;

s:real;

begin

clrscr;

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

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

s:=1;

for i:=1 to m do 

  s:=s+1/sqr(a+i);

writeln(s:4:2);

readln;

end.