sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss

Dãy 1:

Giải:

Số hạng thứ 100 của dãy là:

2+(100-1).3=299

Tổng của dãy số trên là:

(299+2).100:2=15050

Vậy tổng của dãy 1 là 15050

B1 Tìm số  thứ 100 theo công thức sau đó bạn tính số các số hạng 

B2 Áp dụng công thức tính tổng các ssos hạng  (số cuối + số đầu ) . số cacs số hạng 

                                       xong đơn giản mà  ( dãy 1 )

dãy 2:

Giải:

Số hạng thứ 103 của dãy là:

3+(103-1).4=411

Tổng của dãy số 2 là:

(411+3).103:2=21321

Vậy tổng của dãy 2 là 21321

Dãy 1 : 2 ,5 ,8,11  

                     giải 

đây là dãy số cách đều ..........

Số số hạng( số đầu - số cuối ) : khoảng cách  +1 = 

tổng của dãy: ( số đầu + số cuối ) x số số hạng : 2 =

a, Số số hạng là : 

( 119 - 7 ) : 4 + 1 = 29 số hạng

b, Số thứ 20 là số 83

c, Tổng = ( 119 + 7 ) . 29 : 2 = 1827

xin tiick

program tinh_tong;

uses crt;

var i,n,t:integer;

a:array[1..100]of integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('tong cua day la: ',t);

t:=0;

for i:=1 to n do

if a[i] mod 2=0 then t:=t+a[i];

writeln('tong cac so chan la: ',t);

readln;

end.

program TongSoLeTrongDay;

var

      n, i, tong, dem: integer;

      a: array[1..100] of integer;

begin

      tong := 0;

      dem := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            tong := tong + a[i];

            if a[i] mod 2 <> 0 then

            begin

                  dem := dem + 1;

            end;

      end;

      writeln('Tong cac phan tu trong day la: ', tong);

      writeln('So phan tu le trong day la: ', dem);

      readln;

end.

program TongSoVaSoDuongTrongDay;

var

      n, i, tong, dem, tongDuong: integer;

      a: array[1..100] of integer;

begin

      tong := 0;

      dem := 0;

      tongDuong := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      write('Nhap day so n: ');

      for i := 1 to n do

      begin

            readln(a[i]);

            tong := tong + a[i];

            if a[i] > 0 then

            begin

                  dem := dem + 1;

                  tongDuong := tongDuong + a[i];

            end;

      end;

      writeln('Tong cac phan tu trong day la: ', tong);

      writeln('So phan tu duong trong day la: ', dem);

      writeln('Tong cac so duong trong day la: ', tongDuong);

      readln;

end.