procedure sub( a,b:string; var c: string);
var
z,x,y,n,k,p,i,j: byte;
Begin
if a='0' then begin c:='0'; halt(0); end;
c:='';
n:= length (a);
k:= length (b);
for i:=1 to n+k do c:=c+'0';
for i:=k downto 1 do begin
p:=0; y:= ord (b[i])-ord('0');
for j:=n downto 1 do begin
x:= ord(a[j])-ord('0');
а дальше как ?помогите плз
Сообщение отредактировано: Dain -