Viết chương trình tính tổng S = 1/2 + 1/3 + 1/4 + 1/5 + … + 1/n. Với n được nhập từ bàn phím, đưa ra kết quả trên màn hình

0 bình luận về “Viết chương trình tính tổng S = 1/2 + 1/3 + 1/4 + 1/5 + … + 1/n. Với n được nhập từ bàn phím, đưa ra kết quả trên màn hình”

1. program tinh_tong;
   uses crt;
   var n,i:integer;
       t:real;
   begin
        clrscr;
        writeln(‘Nhap n’);
        readln(n);
        t:=0;
        for i:=2 to n do
            t:=t + 1/i;
        writeln(‘Tong la: ‘,t:4:2);
   readln;
   end.

   Bình luận

2. program window
   uses crt;
   var n,i:integer;
       t:real;
   begin
        clrscr;
        writeln(‘Nhap n’);
        readln(n);
        t:=0;
        for i:=1 to n do
            t:=t + 1/i;
        writeln(‘Tong la: ‘,t:4:2);
   readln;
   end.

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

   Bình luận