Viết chương trình tính tổng sau: A = 1 + 1/2 + 1/3 + … + 1/n

0 bình luận về “Viết chương trình tính tổng sau: A = 1 + 1/2 + 1/3 + … + 1/n”

1. program bai1;

   var s,n,i:longint;

   begin

   write(‘N= ‘);

   readln(n);

   s:=0;

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

   write(‘S= ‘,s);

   readln

   end.

   (Mình xài máy tính nên mình test thử trên máy rồi nhé.)

   Trả lời

2. program tong;

   uses crt;

   var n, i: integer;

         A: real;

   begin

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

   A:=0;

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

   writeln(‘Tong cua A = ‘,A);

   readln

   end.

   Trả lời