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

}

Program HOC24;

var i,n,dem: byte;

d: array[1..20] of integer;

begin

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

for i:=1 to n do 

begin

write('D[',i,']='); readln(d[i]);

end;

dem:=0;

for i:=1 to n do if d[i] mod 2<>0 then dem:=dem+1;

write('Co ',d,' phan tu le trong mang');

readln

end.

program Tim_So_Le_Chia_Het_Cho_3;

uses crt;

var

     n, i, count: integer;

begin

     clrscr;

     write('Nhap vao mot so nguyen duong n: ');

     readln(n);

     writeln('Cac so le chia het cho 3 nho hon ', n, ' la: ');

     count := 0;

     for i := 1 to n do

     begin

          if (i mod 2 = 1) and (i mod 3 = 0) then

          begin

               writeln(i);

               count := count + 1;

          end;

     end;

     writeln('Co tat ca ', count, ' so le chia het cho 3');

     readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,dem,t;

int main()

{

cin>>n;

dem=0;

t=0;

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

if (i%2==1) 

{

t=t+i;

dem++;

}

cout<<t<<" "<<dem;

return 0;

}

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

viết đề này chắc vô bệnh viện nằm luôn

1006

506

97

99

9

1. có: (2011 - 1) : 2 + 1 = 1006 (số)

2. có: (2011 - 1011) : 2 + 1 = 501 (số)

3. Lấy số lớn chia cho số bé thì được thương là 3 dư 3. Nên nếu giảm ở số lớn 3 đơn vị thì sẽ chia hết cho số bé. Lúc này hiệu sẽ còn:

197 - 3 = 194

Ta có sơ đồ lúc này:

Số lớn:        |----------|----------|----------|

Số bé:         |----------|  .........194.........

Hiệu số phần bằng nhau:   3 - 1 = 2 (phần)

Số bé là :   194 : 2 =  97

Đáp số:  97

4. 99 số

5. 9 số

program hoc24;

n: string[20];

k,i,t,d,d1: byte;

code: integer;

begin

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

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

d:=0; d1:=0;

 for i:=1 to k do

begin

val(n[i],t,code);

if t mod 2=0 then d:=d+1 else d1:=d1+1;

end;

writeln('Co ',d,' chu so chan');

write('Co ',d1,' chu so le');

readln

end.

uses crt;

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

i,n,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

dem:=0;

for i:=1 to n do  

if trunc(sqrt(a[i]))=sqrt(a[i]) then inc(dem);

writeln(dem);

readln;

end.