Viết chương trình tính các tổng S = 1+1/2+1/4+-+1/2N 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 các tổng S = 1+1/2+1/4+-+1/2N Với N được nhập từ bàn phím”

1. uses crt;
   var i,n: longint;
         s: real;
   begin
    clrscr;
     write (‘nhap n: ‘);  readln (n);
     s:=1;
     for i:=1 to n do
      if n mod 2=0 then
       s:=s+1/i;
     writeln (‘tong la: ‘,s:1:3);
    readln;
   end.

   

   Bình luận

2. program oken;
   uses crt;
   var i,n: integer;
       s: real;
   begin
       clrscr;
       write(‘Nhap n: ‘); readln(N);
       s:=0;
       for i:=1 to n do    

   if i mod 2=0 then
           s:=s+1/n;
       write(s:0:3);
       readln;
   end.
       

   Bình luận