em nhờ các anh chị làm hộ e bài này: 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ề “em nhờ các anh chị làm hộ e bài này: 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 bt;
   uses crt;
   var S:real;
       i:integer;
   begin
    clrscr;  S:=0;
    for i:=1 to 100 do S:=S+1/i;
    writeln(S:0:3);
    readln;
   end.

   Bình luận