Tính tổng S=1/2+1/4+1/6…+1/N

0 bình luận về “Tính tổng S=1/2+1/4+1/6…+1/N”

1. program ct;

   uses crt;

   var s:real; i,n:integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   s:=0;

   for i:=1 to n do

       if i mod 2=0 then s:=s+1/i;

   writeln(‘tong la:=’,s);

   readln

   end.

   Bình luận

2. program bau;

   uses crt;

   var s:real; i,n:integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   s:=0;

   for i:=1 to n do

       if i mod 2=0 then s:=s+1/i;

   writeln(‘tong la:=’,s);

   readln

   end.

   Bình luận