uses crt;

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

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

s:real;

begin

clrscr;

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

for i:=1 to n do 

begin

repeat

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

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

  if a[i]>10 then inc(dem);

writeln('So phan tu lon hon 10 la: ',dem);

dem1:=0;

dem2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

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

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

t:=0;

s:=1;

for i:=1 to n do 

  begin

if (i mod 2=0) and (a[i] mod 2<>1) then t:=t+a[i];

if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];

end;

writeln('Tong cac so o vi tri chan co gia tri le la: ',t);

writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);

writeln('Cac so le la: ');

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

writeln;

writeln('Cac so chan va lon hon 10 la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>10) then write(a[i]:4);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem1,dem2;

int main()

{

cin>>n;

dem1=0;

dem2=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0) dem1++;

else dem2++;

}

cout<<dem1<<" "<<dem2;

return 0;

}

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

i,n,dl,dc:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

If a[i] mod 2 = 0 then dc:=dc+1

Else dl:=dl+1;

End;

Writeln('Co ',dc,' so chan');

write('Co ',dl,' so le');

Readln

End.

Bài 20: Các số chẵn trong dãy là 2;4;...;2000

Số số chẵn là (2000-2):2+1=1000-1+1=1000(số)

Tổng của các số chẵn là: \(\left(2000+2\right)\cdot\frac{1000}{2}=1000\cdot1001=1001000\)

Các số lẻ trong dãy là 1;3;5....;2001

Số số lẻ là (2001-1):2+1=2000:2+1=1001(số)

Tổng của các số lẻ là: \(\left(2001+1\right)\cdot\frac{1001}{2}=2002\cdot\frac{1001}{2}=1001\cdot1001=1002001\)

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

1002001-1001000=1001

Bài 23:

a: Số chữ số trong dãy số 1;2;...;9 là:

\(\left(9-1+1\right)\cdot1=9\) (chữ số)

Số chữ số trong dãy số 10;11;...99 là:

\(\left(99-10+1\right)\cdot2=90\cdot2=180\) (chữ số)

Số chữ số trong dãy số 100;101;...;999 là:

\(\left(999-100+1\right)\cdot2=900\cdot2=1800\) (chữ số)

Số chữ số trong dãy số 1000;1001;...;1992 là:

(1992-1000+1)*3=993*3=2979(chữ số)

Tổng số chữ số trong dãy là:

9+180+1800+2979=4968(chữ số)

b: Sau khi viết xong dãy số tới số 999 thì số chữ số còn lại để tiến tới chữ số thứ 3000 là:

3000-1800-180-9=1011

1011:4=252 dư 3

=>Chữ số thứ 3000 sẽ là chữ số thứ 3 trong số có bốn chữ số thứ 253 của dãy

Số có bốn chữ số thứ 253 của dãy là:

999+253=1252

=>Chữ số thứ 3000 của dãy ban đầu là chữ số 5

Input: số phần tử của dãy A, dãy a1,a2...an.

Output:số phần tử chẵn, lẻ.

thuật toán:

B1: demchan <--0; demle <--0; i<--1;

B2: nếu a[i] mod 2=0 then demchan <-- demchan+1. ngược lại demle <--demle+1;

B3: i <--i+1;

B4: nếu i<=n thì quay lại bước 2;

B5: thông báo giá trị demchan và demle và kết thúc thuật toán.

chúc bạn học tốt

kobt lm

Các số chẵn từ 2 đến 2534 là : ( 2534 - 2 ) : 2 + 1 = 1267 
Các số lẻ từ 1 đến 2535 là : ( 2535 - 1) : 2 + 1 = 1268 

1267 số chẵn từ 2 đến 2534 có 1267 số lẻ liền sau từ 3 đến 2535, nên tổng các số lẻ từ 3 đến 2535 hơn tổng các số chẵn từ 2 đến 2534 là 1267. 
Thêm 1 là số lẻ nữa, suy ra tổng các số lẻ từ 1 đến 2535 hơn tổng các số chẵn là 1268

vì bắt đầu bằng số le và kết thúc bằng số lẻ nên số lẻ nhiều hơn số chẵn 1 số

số chẵn là (2535-1):2=1267

số lẻ là 1267+1=1268

có 3 số lẻ là 3 9 1005

có 2 số chẵn là 6 và 1002

var n,i,k,d: integer;

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

begin

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

for i:=1 to n do

begin

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

end;

write('Nhap so k: '); readln(k);

d:=0;

for i:=1 to n do

if a[i] mod k = 0 then d:=d+1;

writeln('Co ',d,' so chia het cho ',k,' trong day');

if d mod 2 = 0 then writeln('Chan') else writeln('Le');

end.

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=52);

for i:=1 to n do 

  begin

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

end;

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

dem:=0;

for i:=1 to n do  

  if a[i] mod k=0 then inc(dem);

writeln('Trong day co ',dem,' so chia het cho ',k);

if dem mod 2=0 then writeln('So luong so chia het cho ',k,' la so chan')

else writeln('So luong so chia het cho ',k,' la so le');

readln;

end.

- Dãy số chẵn từ dãy số trên là: 2; 4; 6; ...; 380

Số số hạng của dãy là:

(380 + 2) : 2 + 1 = 190 số chẵn

- Dãy số lẻ từ dãy số trên là: 1; 3; 5; ...; 379

Số số hạng của dãy là:

(379 - 1) : 2 + 1 = 190 số lẻ