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 For… 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 For… Do”

1. a) – Khai báo

   BEGIN

   clrscr;

   Write(‘Nhap so n: ‘);Readln(n);

   S:= 0;

   For i:= 1 to n do

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

   Write(S);

   Readln

   END.

   b)  – Khai báo

   BEGIN

   clrscr;

   Write(‘Nhap so n: ‘);Readln(n);

   S:= 0;

   For i:= 1 to n do

   S:= S + (i*2);

   Write(S);

   Readln

   END.

   C)  – Khai báo

   BEGIN

   clrscr;

   Write(‘Nhap so n: ‘);Readln(n);

   S:= 1;

   For i:= 1 to n do

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

   Write(S);

   Readln

   END.

   Về phần khi báo thì 3 cái giống nhau

   Program        ;

   Uses crt;

   Var n,i,S: Integer;

   Bình luận

2. *for…do

   uses crt;

   var n,i:integer;

         S:longint;

   begin

           clrscr;

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

           S:=0;

           for i:=1 to n do

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

           write(‘S= ‘,s);

           readln;

   end.

   Bình luận