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
2 câu trả lời
program bai_giai;
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);
write(s:0:2);
readln;
end.
uses crt;
var m, a, i : integer; S : real;
begin
clrscr;
S := 1;
write('Nhap so m, a : '); readln(m, a);
for i := 1 to m do S := S + 1 / sqr(a + i);
write('S = ', S : 2 : 2);
readln
end.
