Viết chương trình tính tổng a) S=1*2+2*3+3*4+-N*(N+1) b) S=2+4+6+…+2*N c) S=1+3+5+…+(2*N+1) Với N nhập từ bàn phím Sử dụng While…Do

0 bình luận về “Viết chương trình tính tổng a) S=1*2+2*3+3*4+-N*(N+1) b) S=2+4+6+…+2*N c) S=1+3+5+…+(2*N+1) Với N nhập từ bàn phím Sử dụng While…Do”

1. a, 

   var n, i: integer; S: real;

   begin

    read(n);

    while i <= n do

     begin 

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

      i:=i+1;

     end;

    write(S);

   end.

   b, 

   var n,i: integer; S: real;

   begin 

    read(n);

    while i <= n do

     begin

       S:=S+2*i;

       i:=i+1;

     end;

    write(S);

   end.

   c, 

   var n,i: integer; S: real;

   begin

    read(n);

    while i <=n do

     begin

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

       i:=i+1;

     end;

    write(S);

   end.

   Bình luận

2. a,

   program Tinh_tong;

   uses crt;

   var n, i: integer;

            S: real;

   begin

       clrscr;

       read(n);

       while i <= n do

       begin 

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

       i:=i+1;

       end;

       write(S);

   readln

   end.

   b, 

   program Tinh_tong;

   uses crt;

   var n,i: integer;

           S: real;

   begin 

      clrscr;

      read(n);

      while i <= n do

      begin

      S:=S+2*i;

      i:=i+1;

      end;

      write(S);

   readln

   end.

   c,

   program Tinh_tong;

   uses crt;

   var n,i: integer;

           S: real;

   begin

      clrscr;

      read(n);

      while i <=n do

      begin

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

      i:=i+1;

      end;

      write(S);

   redln

   end.

   Bình luận