viết chương trình tính tổng sau:y=1+1/4+1/9+1/16+…+1/100

0 bình luận về “viết chương trình tính tổng sau:y=1+1/4+1/9+1/16+…+1/100”

1. 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.
   

   Bình luận