Viết chương trình tính tổng1+1/2+1/3+1/4…+1/9

0 bình luận về “Viết chương trình tính tổng1+1/2+1/3+1/4…+1/9”

1. program oken;

   uses crt;

   var i:integer;

         tong:real;

   begin

   clrscr;

   for i:=1 to 9 do

        tong:=tong+ 1/i;

   writeln(‘tong: ‘,tong:0:3);

   readln;

   end.

   Bình luận

2. Program BTH;
   uses crt;
   var i:longint;
   s:real;
   Begin
           clrscr;
           For i:= 1 to 9 do s:=s+1/i;
           writeln(‘Tong day so tren la ‘,s:4:2);
           readln;
   end.

   Bình luận