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 a;

   uses crt;

   var N,i: integer;

         S: longint;

   Begin

            clrscr;

            write(‘Nhap N: ‘); readln(N);

            while i<=N do

            begin

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

                     i:=i+1;

            end;

            write(‘S = ‘,S);

   End.

   b)

   program b;

   uses crt;

   var N,i: integer;

         S: longint;

   Begin

            clrscr;

            write(‘Nhap N: ‘); readln(N);

            while i<=N do

            begin

                     S:=S+2*i;

                     i:=i+1;

            end;

            write(‘S = ‘,S);

   End.

   c)

   program c;

   uses crt;

   var N,i: integer;

         S: longint;

   Begin

            clrscr;

            write(‘Nhap N: ‘); readln(N);

            while i<=N do

            begin

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

                     i:=i+1;

            end;

            write(‘S = ‘,S);

   End.

   Bình luận