Sử dụng câu lệnh lặp với số lần biết trước để viết chương trình tính tổng của A=1+1/2+1/3+1/4+…+1/n Mk đang cần gấp

0 bình luận về “Sử dụng câu lệnh lặp với số lần biết trước để viết chương trình tính tổng của A=1+1/2+1/3+1/4+…+1/n Mk đang cần gấp”

1. program tinh_tong;

   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);

         readln;

   end.

   Bình luận

2. uses crt;

   var i,n: integer;

   s: real;

   begin

   clrscr;

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

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

   writeln (‘tong la: ‘,s:1:2);

   readln;

   end.

   Bình luận