Viết chương trình tính tổng A= 1 + 1/2² + 1/3²/+…+ 1/N² 22/07/2021 Bởi Natalia Viết chương trình tính tổng A= 1 + 1/2² + 1/3²/+…+ 1/N²
Var i,n: integer; A: real; begin read(n); A:=0; i:=1; While i<=n do begin A:= S+1/(i*i); i:=i+1; end; Write(A); End. Bình luận
đây bạn
Var i,n: integer;
A: real;
begin
read(n);
A:=0; i:=1;
While i<=n do
begin
A:= S+1/(i*i);
i:=i+1;
end;
Write(A);
End.