Tính tổng A=1+1/2+1/3+…+1/n.

0 bình luận về “Tính tổng A=1+1/2+1/3+…+1/n.”

1. program tong_A;

   uses crt;

   var n:integer;

         A:real;

   begin

        clrscr;

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

        A:=0;

        for i:=1 to n do

             A:=A+1/i;

        write(‘A=’ ,A:2:2);

        readln;

   end.

   Bình luận

2. program Tong;

   uses crt;

   var n, i: integer;

         A: real;

   Begin

            clrscr;

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

            for i:=1 to n do A:=A+1/i;

            write(‘A = ‘,A:2:2);

            readln

   End.

   Bình luận