uses crt;

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

i,dem:integer;

begin

clrscr;

dem:=0;

for i:=1 to 10 do

begin

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

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

end;

writeln('so phan tu chia het cho 5 trong day la: ',dem);

readln;

end.

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{-------------------------------------------------------------}

dem:=0;

for i:=1 to n do

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

writeln('so phan tu chan trong day la: ',dem);

readln;

end.

uses crt;

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

i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

begin

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

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

end;

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

readln;

end.

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{-------------------------------------------------------------}

dem:=0;

for i:=1 to n do

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

writeln('so phan tu chan trong day la: ',dem);

readln;

end.

uses crt;
var a:array[1..249] of integer;
i,n,dem,t,j,tam:integer;
kt:boolean;
begin
clrscr;
write('n='); readln(n);
if (n>0) and (n<250) then
begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------cau-a---------------------------}
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('so phan tu trong mang co gia tri chan la: ',dem);
{--------------------------cau-b----------------------------}
t:=0;
for i:=1 to n do
if (i mod 2=1) and (a[i] mod 2=0) then t:=t+a[i];
writeln('tong cac phan tu o vi tri le co gia tri chan cua day la: ',t);
{--------------------------cau-c--------------------------------}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
kt:=true;
t:=a[2]-a[1];
for i:=1 to n-1 do
if a[i+1]-a[i]<>t then kt:=false;
if kt=true then writeln('day A la cap so cong')
else writeln('day A khong la cap so cong');
end
else writeln('vui long nhap lai');
readln;
end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

if (n>0) and (n<=100) then

begin

t:=0;

for i:=1 to n do

begin

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

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

end;

writeln('tong cac phan tu chan hoac le trong day la: ',t);

end

else writeln('vui long nhap lai');

readln;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

if (n>0) and (n<=100) then

begin

t:=0;

for i:=1 to n do

begin

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

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

end;

writeln('tong cac phan tu chan hoac le trong day la: ',t);

end

else writeln('vui long nhap lai');

readln;

end.

uses crt;
var st:string;
i,j,n,d,x,y:integer;
kq,lt:longint;
begin
clrscr;
write('nhap so nhi phan:'); readln(st);
d:=length(st);
kq:=0;
for i:=1 to d do
begin
lt:=1;
for j:=1 to d-i do
lt:=lt*2;
val(st[i],x,y);
kq:=kq+x*lt;
end;
writeln(st,' doi sang he 10 la: ',kq);
readln;
end.

uses crt;
var x,i,luu:integer;
nhiphan,thapphan,kt,test:string;
a: array [1..15] of integer;
begin
clrscr;
write('So nhi phan: ');readln(nhiphan);
str(10, test);
if nhiphan >= test then begin
i:= 1; x:= 1;
repeat
x:= x + 1;
luu:= x;
repeat
a[i]:= luu mod 2;
luu:= luu div 2;
i:= i + 1;
until luu = 0;
str(a[i - 1], thapphan);
for i:= i - 2 downto 1 do
begin
str(a[i], kt);
thapphan:= thapphan + kt;
end;
until thapphan = nhiphan;
end
else if nhiphan < test then
if nhiphan = '0'then x:= 0
else if nhiphan = '1' then x:= 1;
write('So thap phan la: ',x);
readln
end.