高精度乘以低精度 procedure multiply（a:hp;b:longint;var c:hp);var i,len:integer;

高精度乘以低精度 procedure multiply（a:hp;b:longint;var c:hp);var i,len:integer;

高精度乘以高精度 procedure high_multiply（a,b:hp; var c:hp}var i,j,len:integer;

高精度乘以高精度 procedure high_multiply（a,b:hp; var c:hp}var i,j,len:integer;

高精度除以低精度 procedure devide（a:hp;b:longint; var c:hp; var d:longint);{c:=a div b

高精度除以低精度 procedure devide（a:hp;b:longint; var c:hp; var d:longint);{c:=a div b

高精度除以高精度 procedure high_devide（a,b:hp; var c,d:hp);vari,len:integer;