Nhập n từ bàn phím để viết chương trình tính: s= 1+1/2^2+1/3^2+...+1/n^2 mấy bạn giúp mình với ạ :(
2 câu trả lời
uses crt;
var n,i:longint;
s:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do s:=s+1/(i*i);
writeln('s=',s:0:2);
readln;
end.
Program BTT;
Uses crt;
Var i,n: longint;
s: extended;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
s:=s+1/sqr(i);
Write('S = ',s:0:2);
Readln
End.
