Pagini recente » Borderou de evaluare (job #2979968) | Cod sursa (job #1316812) | Cod sursa (job #2897459) | Cod sursa (job #249607) | Cod sursa (job #839190)
Cod sursa(job #839190)
program ossze;
var f,g:text;
n,m:string;
szam1,szam2,hibakod,i:byte;
begin
assign(f,'adunare.in');
reset(f);
readln(f,n);
if ord(n[0])<10 then
begin
while ord(n[0])<10 do
insert('0',n,1);
end;
readln(f,m);
if ord(m[0])<10 then
begin
while ord(m[0])<10 do
insert('0',m,1);
end;
assign(g,'adunare.out');
rewrite(g);
for i:=10 downto 1 do
begin
val(n[i],szam1,hibakod);
val(m[i],szam3,hibakod);
write(g,szam2+szam1);
end;
close(f);
close(g);
end.