Pagini recente » Cod sursa (job #3002914) | Cod sursa (job #228225) | Cod sursa (job #757238) | Cod sursa (job #2494795) | Cod sursa (job #872898)
Cod sursa(job #872898)
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.