Viết chương trình tính tổng S= 1/3+1/5+…+1/n với n đc nhập từ bàn phím

0 bình luận về “Viết chương trình tính tổng S= 1/3+1/5+…+1/n với n đc nhập từ bàn phím”

1. program phuongt;

   uses crt;

     var i, n: integer; 

              s: real;

   begin

              clrscr;

              write(‘Nhap n =’); readln(n);

              s:=0;

              for i:=3 to n do if i mod 2 = 1 then s:=s+1/i;

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

              readln

   end.

   Bình luận

2. program tinhtong_S;

   uses crt;

   var n,i:integer;

         S:real;

   begin

        clrscr;

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

        S:=0;

        for i:=3 to n do 

             if i mod 2=1 then S:=S+1/i;

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

        readln;

   end.

   Bình luận