viết chương trình Tính tổng s=1+1/2^2+1/3^2+…+1/n^2 với số n nhập từ bàn phím

0 bình luận về “viết chương trình Tính tổng s=1+1/2^2+1/3^2+…+1/n^2 với số n nhập từ bàn phím”

1. program bt;

   var

             n,i:integer; S:real;

   begin

            write(‘Nhap n: ‘);readln(n);

            S:=0;

            for i:=1 to n do S:=S+1/(i*i);

            write(‘Tong la: ‘,S:2:2);

            readln;

   end.

   Phần khai báo thư viện bạn có cũng được, không có cũng khong sao nha

        Chúc bạn học tốt

   Bình luận

2. uses crt;

   var i,n: integer;

           s: real;

   begin

   clrscr;

   write(‘nhap n: ‘);  readln (n);

   for i:=1 to n do

   s:=s+(1/(i*i));

   writeln (‘tong la: ‘,s:1:2);

   readln;

   end.

   Bình luận