Viết Chương Trình While…do tính Y=1/2+1/3+1/4+…+1/n

0 bình luận về “Viết Chương Trình While…do tính Y=1/2+1/3+1/4+…+1/n”

1. program tinh_tong;

   uses crt;

   var n,i:integer;

         Y:real;

   begin

          clrscr;

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

          i:=2;

          while i<=n do

                   begin

                           Y:=Y+1/i;

                           i:=i+1;

                   end;

          readln;

   end.

   Bình luận