viết chương trình tính tổng S= 1 + 1/2 +1/3+-.+1/n ( trong đó n được nhập vào từ bàn phím ) Mấy bạn kiểu copy thì ra chỗ khác :) tự làm k thì ăn b

0 bình luận về “viết chương trình tính tổng S= 1 + 1/2 +1/3+-.+1/n ( trong đó n được nhập vào từ bàn phím ) Mấy bạn kiểu copy thì ra chỗ khác :) tự làm k thì ăn b”

1. Program tinh_tong;

   Var

           n,i:integer; S:real;

   Begin

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

            S:=0;

            For i:=1 to n do S:=S+1/i;

            write(‘Tong la: ‘,S:5:2);  {:5:2 ở đây là để chặn dữ liệu, lấy 2 số sau dấy phẩy nha}

            Readln;

   End.

   #No_copy

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

   Bình luận

2. uses crt;
   var i,n:longint; s:real;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
     for i:=1 to n do 
        s:=s+1/i;
     writeln(‘S= ‘,s:0:5);
   readln
   end.

   Bình luận