Cod sursa(job #283687)

Utilizator cristim_00Mihok Cristian cristim_00 Data 19 martie 2009 15:46:01
Problema A+B Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.98 kb
var a,b:string;
    f,g:text;

 function adunare(x,y:string):string;
       var m,n,er,r,t,s:integer;
           k,s1,i,ii:string;

       begin
       r:=0;s:=0;t:=0;m:=0;n:=0; s1:='';
        repeat
         s:=0;
         i:=copy(x,length(x),1);
         ii:=copy(y,length(y),1);
          val(i,m,er);
          val(ii,n,er);
          t:=m+n;
          if t+r<10 then begin
                          s:=t+r;
                          r:=0;
                         end;
          if t+r>=10 then begin
                        s:=(t+r) mod 10;
                        r:=(t+r) div 10;
                           end;
          delete(x,length(x),1);
          delete(y,length(y),1);
         str(s,k);
         s1:=(k+s1);
        until (x='') and (y='');
       adunare:=s1;
      end;

  begin
   assign(f,'adunare.in'); reset(f);
   assign(g,'adunare.out');rewrite(g);
   readln(f,a);
   read(f,b);
   write(g,adunare(a,b));
   close(f); close(g);

  end.