一个简单算法的求解！！！！！！散分！！

Question

有一个十进数，将其以压缩BCD码并按照低位在前高位在后的原则存放，其结果是两字节，分别为52、18，请计算出这个十进数（写出详细算法）。

Answer 1

function convertbdc(in:pchar,length;int):int;
var
i,k:int;
begin
j:=1;
for i := 1 to length do
begin 
   k := in[i] shr 4;
K:= K*10+ in[0]&0x0f;
end;
result := k;
end;
--------------------------------------
看见了么，
那支蛾子，
正飞向太阳，
那就是我！
--------------------------------------

Answer 2

firetoucher(蹈火者) 回复好象是语言的