viết chương trình tính tổng S=(1-1/2)(1-1/3)(1-1/4)…(1-1/n)

Bởi

viết chương trình tính tổng S=(1-1/2)(1-1/3)(1-1/4)…(1-1/n)

0 bình luận về “viết chương trình tính tổng S=(1-1/2)(1-1/3)(1-1/4)…(1-1/n)”

  2. program tinhtong;

    uses crt;

    var n,i:integer;

          s:real;

    begin

           clrscr;

           write(‘Nhap n: ‘);   readln(n);

           S:=0;

           for i:=2 to n do

                  S:=S+(1-1/n);

           write(‘S= ‘,s:2:2);

           readln;

    end.

    Bình luận

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