Pascal的有点忘记了，

只记得C的代码：

main(){
    int a;
    scanf("%x",&a);
    printf("%d\n",a);
    getch();
}

var k:string;
    a,s,i,j:integer;
begin
write('k=');readln(k);
for i:=1 to length(k) do begin
  case k[i] of
   'a','A':a:=10;
   'b','B':a:=11;
   'c','C':a:=12;
   'd','D':a:=13;
   'e','E':a:=14;
   'f','F':a:=15;
   end;
  s:=s*16+a;
end;
writeln(s);
end.
答对了万望加分，好不容易编出的程序啊啊啊啊啊！！！

笔算就会~~

[fly]写字楼里写字间  写字间里程序员[/fly]

[fly]程序人员写程序  又拿程序换酒钱[/fly]

[fly]酒醒只在网上坐  酒醉还来网下眠[/fly]

[fly]酒醉酒醒日复日  网上网下年复年[/fly]

[fly]但愿老死电脑间  不愿鞠躬老板前[/fly]

[fly]奔驰宝马贵者趣  公交自行程序员[/fly]

[fly]别人笑我忒疯癫  我笑自己命太贱  [/fly]

这个的设计思想又不复杂,能用手算应该也能写出代码啊

算法不是很复杂,这里先给出思路:
只要设定两个数组,一个存放10进制转2进制的数,另一个存放2进制转16进制的数

然后两个数组转化下可得出.

(提示,2进制的4位数等于16进制的1位数,如2进制的1010,等于16进制的A)