Giải chương trình tính giá trị của biểu thức : A=1+1/2+1/3+ …+1/n Giúp mình với đề cương nhiều câu quá chìu mình thi

0 bình luận về “Giải chương trình tính giá trị của biểu thức : A=1+1/2+1/3+ …+1/n Giúp mình với đề cương nhiều câu quá chìu mình thi”

1. uses crt;

   var i,n: integer;

   a: real;

   begin

   clrscr;

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

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

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận

2. Program tinh_tong_A;

   uses crt;

   var n,i: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