Sử dụng lệnh While -…do; Viết phương trình tính tổng nghịch đảo của 100 số tự nhiên đầu tiên:S=1+1/2+1/3+…+1/100.

Bởi

Sử dụng lệnh While …….do; Viết phương trình tính tổng nghịch đảo của 100 số tự nhiên đầu tiên:S=1+1/2+1/3+…+1/100.

0 bình luận về “Sử dụng lệnh While -…do; Viết phương trình tính tổng nghịch đảo của 100 số tự nhiên đầu tiên:S=1+1/2+1/3+…+1/100.”

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

    Bình luận

Viết một bình luận