K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

19 tháng 12 2016

Số số hạng:(99-1):2+1=50

Tổng:(99+1)×50:2=2500

k mình nha!Mình đầy đủ hơn!

19 tháng 12 2016

2500 nhoa pn

uses crt;

var a:array[1..1000]of integer;

i,n,t,t1,dem,dem1:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

t1:=0;

dem:=0;

dem1:=0;

for i:=1 to n do  

begin

if a[i] mod 2=0 then 

begin

t:=t+a[i];

inc(dem);

end

else begin

t1:=t1+a[i];

inc(dem1);

end;

end;

writeln('So luong so chan la: ',dem);

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

writeln('So luong so le la: ',dem1);

writeln('Tong cac so le la: ',t1);

readln;

end.

25 tháng 2 2021

Bọn em học C++ ạ :<<

 

13 tháng 3 2021

Program HOC24;

var a: array[1..32000] of integer;

i,n,tg,c,l: integer;

tc,tl: longint;

begin

write('Nhap N: '); readln(n);

c:=0; l:=0; tc:=0; tl:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i];

if a[i] mod 2=0 then

begin

c:=c+1;

tc:=tc+a[i];

end;

if a[i] mod 2=1 then

begin

l:=l+1;

tl:=tl+a[i];

end;

end;

write('Day da sap xep: ');

for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

writeln;

wirteln('Co ',l,' so le');

writeln('Co ',c,' so chan');

writeln('Tong cac so le la: ',tl);

writeln('Tong cac so chan la:', tc);

readln

end.

a) chẵn

b) lẻ

c) chẵn

11 tháng 1 2023

a) chẵn

b) lẻ

c) chẵn

27 tháng 7 2015

Số số lẻ từ 1 đến 1001 là :

( 1001 - 1 ) : 2 + 1 = 501 ( số lẻ )

Số số chẵn từ 1 đến 1001 là :

( 1000 - 2 ) : 2 + 1 = 500 ( số chẵn )

Tổng các số lẻ là :

( 1 + 1001 ) x 501 : 2 = 251001 ( đơn vị )

Tổng các số chẵn là :

( 2 + 1000 ) x 500 : 2 = 250500 ( đơn vị )

Tổng các số lẻ hơn tổng các số chẵn là :

251001 - 250500 = 501 ( đơn vị )

8 tháng 2 2017

dddddddddddddddddddddddddddddddddddddddddddddddddddddddddđ

17 tháng 2 2022

{PROGRAM Bai_tap1;
USES crt;
VAR n, i, C, L:Bytbe;
BEGIN 
  clrscr;
  Write('Nhap n:');Readln(n);
  C:=0;L:=0;
  For i:=1 to n do
    If i mod 2=0 then C:=C+i else L:=L+i;
  writeln('Tong cac so chan la:',C);
  writeln ('Tong cac so le la:',L);
  Readln;
end.  
}

2 tháng 3 2022

1016064

2 tháng 3 2022

1016064

30 tháng 6 2016

từ 27 đến 2142 có các số chẵn là

  * (2142-28):2+1=1058 số chẵn

từ 27 đến 2142 có các số lẽ là

   * (2141 - 27):2+1= 1058 số lẽ

22 tháng 2 2017

1058 chuẩn luân

a. Chẵn 

b. Lẻ 

c. Chẵn

 

 

22 tháng 4 2023

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.