hãy sử dụng câu lệnh while do để viết chương trình tính tổng cho biểu thức C=1/1+1/2+-.+1/n

0 bình luận về “hãy sử dụng câu lệnh while do để viết chương trình tính tổng cho biểu thức C=1/1+1/2+-.+1/n”

1. uses crt;
   var i,n:integer;
       C:real;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      i:=1; C:=0;
      while i<=n do
      begin
         s:=s+1/i;
         i:=i+1;
      end;
      write(‘C = ‘,C:4:2);
      readln
   end.

   Bình luận

2. uses crt;

   Var  I,n : integer;

   S : real;

   Begin clrscr;

   s :=1, i:=1;

   Write(‘Nhap n=’); readln(n);

   While I <=n do

   Begin

   S:=s+1/i;

   I:=i+1;

   End;

   Writeln(‘Tong do la:’, s);

   Readln

   End.

   Bình luận