Type mas=array of integer;
procedure revers(var a:mas; i:integer);
begin
write(a[i],' ');
if i>0 then revers(a,i-1);
end;
var a:mas;
i,n:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do
read(a[i]);
revers(a,n-1);
end
A > not ( not A or B and not C ) = not A or not A or B and not C = not A or B and not C
<span>A16 == </span>BF2D+ACAB = 16<span>BD8
</span>A7 == 534*65 = 51666
A9 == <span>40052-28716 </span>= 10235
Если интересно как , то самый простой способ :
1) переводим из 16,7,9 в 10;
2)выполняем действия ("+" "*" "-" );
3)Переводим назад в указанные СС (16,7,9)
27 13 6 3 1 ДЕЛИМ 27 на 2 , в частном берем без целое число (=13)
1 1 0 1 1 <=== 27(10) =11011(2) пишем в обратном порядке
Делим 13 на 2, в частном берем целое без округления 6
Делим 6 на 2 (=3) и т.д.
11 5 2 1
1 1 0 1 11(10) = 1011(2)
2001 1000 500 250 125 64 32 16 8 4 2 1
1 0 0 0 1 0 0 0 0 0 0 1
2001(10) =100000010001(2)
скачай архиватор на русском языке и наверхней посматри и увидешь