如题
var a,x,z,p:string;
b,c,d,t,l,i,g,h,q,s:integer;
begin
while a<>'0 0' do
begin
d:=0;
t:=0;
a:='';
x:='';
z:='';
readln(a);
if a='0 0'then break;
l:=length(a);
s:=0;
for i:=l downto 1 do
begin
s:=s+1;
if a[i]=' ' then break else insert(a[i],x,s);
end;
s:=0;
g:=length(x);
s:=0;
for i:=l-g-1 downto 1 do
begin
s:=s+1;
insert(a[i],z,s);
end;
h:=length(z);
if h9 then t:=t+1;
d:=(b+c+d)div 10;
end;
if t=0 then write('No') else write(t);
write(' carry operation');
if t>=2 then writeln('s.') else writeln('.')
end;
end.