nhờ các bạn : viết câu lệnh for-do tính tổng sau S=1+1/2+…+1/100= ∑1/n

0 bình luận về “nhờ các bạn : viết câu lệnh for-do tính tổng sau S=1+1/2+…+1/100= ∑1/n”

1. Uses crt; 

   Var 

   n, s: longint; 

   I : integer; 

   Begin 

   Clrscr ;

    Writeln(‘ nhap n: ‘) ; 

   Read(n);

   For I :=1 to n do  s:= s +(1/n) ;

   Writeln;

   Write(‘ tong = ‘, s); 

   Readln; 

   End. 

   Bình luận

2. program tong;

   uses crt;

   var i: integer;

         S: real;

   begin

   clrscr;

   S:=0;

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

   Writeln(‘Tong cua S = ‘,S:0:3);

   readln

   end.

   Bình luận