> 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.

• Re:The difference between 'operation' and 'operations'!!!!! (6) My_loves 2005-08-13 14:01:33