16 =2^4 ----> 4 бита для кодировки одного символа в указанном алфавите.
код номер символа
0000 1
0001 2
0010 3
0011 4
0100 5
0101 6
0110 7
0111 8
1000 9
1001 10
1010 11
1011 12
1100 13
1101 14
1110 15
1111 16
Program n1;
var i,q,r,t: real;
begin
readln(i,t,r);
q:=i*i*r*t;
writeln(q);
end.
Const n=3;
var a: array[1..n] of integer;
i, j, k: integer;
begin
randomize;
write ('Исходный массив: ');
for i := 1 to n do begin
a[i] := random(256);
write (a[i]:4); end;
writeln; writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('массив по возрастанию: ');
for i := 1 to n do
write(а[i]:4);
writeln;
readln;
<span>end.
______________________________
</span>
? заменяет какой-то один символ, * - любое количество любых символов (возможно, их отсутствие)
Значит, маске ?l*ck*.* соответствуют имена файлов, у которых вторая буква имени l и где-то после неё в имени есть ck.
- _click.txt - вторая не l
- black.ppt - ок
- lo3ck.sts - вторая не l
- clock.tt - ок
- blink.uta - нет ck
- applock.stu - вторая не l
- blocker.htm - ок
- elpack.ty - ок
- blocker.html - ок
Не удовлетворяют маске 1, 3, 5 и 6.
Vara: array of integer;i,j,z: integer;beginreadln(z);SetLength(a,z+2);for i:=1 to z doreadln(a[i]);for i:=z downto 1 doif i mod 2=0 thenfor j:=i to z-1 doa[j]:=a[j+1];for i:=1 to z-(z div 2) do write(a[i]:4);end.
