program jj;typenumbertype=array[0..500] of integer;vara:numbertype;i,k,len:integer;str1:string; begin readln(str1); len:=length(str1);for i:=1 to len do a[len-i+1]:=ord(str1[i])-ord('0'); k:=500;while a[k]=0 do dec(k);for i:=k downto 1 do write(a[i]);readln;end.还有为什么这样储存和读取高精度

加我Q..416675069...我为你解释解释...

。。。

program ex1064;var st:string; len,i,l:integer;begin readln(st); len:=length(st); while len mod 2=0 do begin l:=len div 2 ; for i:=1 to l do if (st[i]<>st[len-i+1]) then begin write(len); exit; end; st:=copy(st,1,l); len:=length(st); end; write(len);end.
帮忙翻译成C语言

a[1]代表str1[len]，首项对末项，末项对首项

就比如说输入的字符串是1234，然后千位是1，百位是2，十位是3，个位是4，
然后ord(str1[i])-ord('0')是把每一位上的数字字符转化成integer型保存在数组a里，
然后a[1]表示个位，a[2]表示十位，以此类推。
然后高精度就是列竖式，把对应位的数字运算以及考虑其进位之类的，所以要先把一个数拆分成各个数位上的数字，再操作