Hãy viết chương trình để tính tổng S sau đây S=2+4+6+8+…+2n

0 bình luận về “Hãy viết chương trình để tính tổng S sau đây S=2+4+6+8+…+2n”

1. uses crt;

   var n,i,s:longint;

   begin

      clrscr;

      write(‘nhap n=’); read(n);

      s:=0;

       for i:=2 to 2*n do

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

       write(s);

   readln

   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
                   s:=s+2*i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận