AI时代，找源码已成为过去式，纪念我过去的十年0(回)
75天前
还有人吗2(回)
92天前会python真的可以为所欲为0(回)
572天前
这里还有人吗2(回)
757天前这里还有人吗0(回)
757天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
982天前procedure devide(a:hp;b:longint; var c:hp; var d:longint);
{c:=a div b; d:= a mod b}
var i,len:integer;
begin
fillchar(c,sizeof(c),0);
len:=a[0]; d:=0;
for i:=len downto 1 do begin
d:=d*10+a[i];
c[i]:=d div b;
d:=d mod b;
end;
while (len>1) and (c[len]=0) then dec(len);
c[0]:=len;
end;