viết theo câu lệnh pascal TÍNH TỔNG S SAU S1=1+1/2^2+1/3^2+1/4^2+.....+1/N^2
2 câu trả lời
uses crt;
var n,i:longint;s:real;
begin
clrscr;
write('nhap n:');readln(n);
s:=1;
for i:=1 to n do s:=s+1/sqr(i);
write('s=',s:4:2);
readln
end.
uses crt;
var n,i:longint;s:real;
begin
clrscr;
write('nhap n:');readln(n);
s:=1;
for i:=1 to n do s:=s+1/sqr(i);
write('s=',s:4:2);
readln
end.
