Cod sursa(job #839190)
| Utilizator | Data | 21 decembrie 2012 14:43:00 | |
|---|---|---|---|
| Problema | A+B | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.54 kb |
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.
