viết chương trình tính tổng sau:y=1+1/4+1/9+1/16+...+1/100
1 câu trả lời
Uses crt;
Var y:real;
I:integer;
Begin
Clrscr;
Y:=0;
For i:=1 to n do
Y:= y+ 1/sqr(i);
Write('tong s = ',s);
Readln;
End.
Câu hỏi trong lớp
Xem thêm
