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 ạ :(

0 bình luận về “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 ạ :(”

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

   Bình luận

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

   Bình luận