Cod sursa(job #872898)

Utilizator Dddarius95Darius-Florentin Neatu Dddarius95 Data 6 februarie 2013 18:16:52
Problema Dreptunghiuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.74 kb
program invat_sa_adun;
type vect=array[1..21]of 0..9;
var v:vect;
    n,m,y:qword;
    i,nr:integer;
    f,g:text;
procedure adun(x:qword;var v:vect);
var i,aux,t:integer;
begin
t:=0;
y:=x;i:=0;
while y<>0 do begin
              inc(i);
              aux:=y mod 10+v[i]+t;
              v[i]:=aux mod 10;
              t:=aux div 10;
              y:=y div 10;
              end;
end;
begin
assign(f,'adunn.in');reset(f);
assign(g,'adunn.out');rewrite(g);
readln(f,n,m);
y:=m;nr:=0; fillchar(v,21,0);
while y<>0 do begin
              inc(nr);
              v[nr]:=y mod 10;
              y:=y div 10;
              end;
adun(n,v);
nr:=21;
while v[nr]=0do dec(nr);
for i:=nr downto 1 do write(g,v[i]);
close(f);close(g);
end.