计算机编程题一道

PASCAL语言程序：

program Noname1;
uses crt;
var a,b,c:integer;
begin
c:=1;
a:=968;
b:=0;
while a<>0 do begin
b:=b+(a mod 6)*c;
c:=c*10;
a:=a div 6;
end;
writeln(b);
Readkey;
end.

***********************************************

C语言程序：

#include <stdio.h>
#include <stdlib.h>

long int cha(int a)
{
long int b;
if (a<6) {
return a;
}
else return (cha(a/6)*10+a%6);
}
int main(int argc, char* argv[])
{
long a;
a=cha(968);
printf("%ld\n",a);
system("pause");
return 0;
}

pac语言:
var
a,b,c:integer;
begin
a:=968;
c:=1;
while a<>0 do
begin
b:=b+(a mod 6)*c;
c:=c*10;
a:=a div 6;
end;
write (b);
end.

c语言

char tem[25];<