Viết chương trình 1.Tính tổng S= 1/ 1.3 + 1/2.4 + 1/3.5+… + 1/n(n+2) 2. Tính tổng T=2+4+6…+2n

0 bình luận về “Viết chương trình 1.Tính tổng S= 1/ 1.3 + 1/2.4 + 1/3.5+… + 1/n(n+2) 2. Tính tổng T=2+4+6…+2n”

1. 1. uses crt;

       var i,n:integer;s:real;

       begin

        clrscr;

   readln(n);

   for i:=1 to n do s:=1/(n*(n+2));

   write(s:10:2);

   readln

   end.

   2.

   uses crt;

       var i,n,s:integer;

       begin

        clrscr;

   readln(n);

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

   write(s);

   readln

   end.

       

   Bình luận