Giải hộ em: viết câu lệnh for-do tính tổng sau S=1+1/2+1/3+…+1/(n+1) cho đến khi 1/(n+1) ≤0.01

0 bình luận về “Giải hộ em: viết câu lệnh for-do tính tổng sau S=1+1/2+1/3+…+1/(n+1) cho đến khi 1/(n+1) ≤0.01”

1. program bt;
   uses crt;
   var S,n:real;
   begin
    clrscr;  n:=1.0;

    While n<99 do
     begin
      S:=S+1/(n+1);
      n:=n+1.0;
     end;
    writeln(‘Tong S la: ‘,S:0:3);
    readln;
   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var n,i: longint;
       s: extended;
   Begin
           Clrscr;
           s:=0;
           n:=0;
           While 1/(n+1) > 0.01 do
           Begin
                   s:=s+1/(n+1);
                   inc(n);
           End;

           Write(‘S = ‘,s:0:2);
           Readln
   End.

   Bình luận