program p2562;
 var a,b:string;
     max:integer;
     out:integer;

 procedure init;
  var s:string;
      i:integer;
      ch:char;
  begin
   readln(s);
   if s='0 0' then halt;
   i:=pos(' ',s);
   a:=copy(s,1,i-1);
   b:=copy(s,i+1,length(s)-i);
   for i:=1 to length(a) div 2 do
    begin
     ch:=a[i];
     a[i]:=a[length(a)-i+1];
     a[length(a)-i+1]:=ch;
    end;
   for i:=1 to length(b) div 2 do
    begin
     ch:=b[i];
     b[i]:=b[length(b)-i+1];
     b[length(b)-i+1]:=ch;
    end;
   if length(a)>length(b) then max:=length(a)
                          else max:=length(b);
  end;

 procedure main;
  var i,j,k,add:integer;
  begin
   add:=0;
   for i:=1 to max do
    begin
     j:=ord(a[i])-48;
     k:=ord(b[i])-48;
     if j<0 then j:=0;
     if k<0 then k:=0;
     if j+k+add>=10 then begin inc(out); add:=1 end
                    else add:=0;
    end;
  end;

 begin
  repeat
   a:='';
   b:='';
   out:=0;
   init;
   main;
   if out=0 then write('No')
            else write(out);
   writeln(' carry operation.');
  until false;
 end.

• The difference between 'operation' and 'operations'!!!!! (1236) palmtenor 2005-08-12 15:17:50
  • Re:The difference between 'operation' and 'operations'!!!!! (6) My_loves 2005-08-13 14:01:33