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

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

1. uses crt;
   var s:real; n,i:longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      i:=-1;
      while i<n Do 
         begin
            inc(i,2);   
            s:=s+1/i; 
         end; 
      writeln(‘S=’,s:0:3);
   readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n:integer;

         S:real;

   begin clrscr;

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

        S:=0;

      for i:=1 to n do

        S:=S+(1/2*i+1);

      writeln(‘Tong S la: ‘,S);

   readln;

   end.

   Bình luận