viết chương trính tính tổng A= 1+ $\frac{1}{2}$ + $\frac{1}{3+}$ +-+ $\frac{1}{100}$ GIÚP MK VỚI Ạ,MK ĐANG CẦN GẤP

0 bình luận về “viết chương trính tính tổng A= 1+ $\frac{1}{2}$ + $\frac{1}{3+}$ +-+ $\frac{1}{100}$ GIÚP MK VỚI Ạ,MK ĐANG CẦN GẤP”

1. Uses crt;

   Var A, i: integer;

   Begin

        Clrscr;

        A:=0;

        For i:=1 to 100 do A:=A+1/i;

        Writeln(‘A = ‘,A:8:2);

   Readln

   End.

   Bình luận

2. program bt;

   var

          A,i:integer;

   begin

         A:=0;

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

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

         readln;

   end.

   #Chuc_ban_hoc_tot

   #Ban_chay_thu_dung_chua_nha_Chua_thi_noi_mik

   #Xin_loi_tra_loi_hoi_muon

   Bình luận