|
«Удачный экспорт»
(100 баллов)
Решение
var f,f1:text;
s1,s:string;
x,i,n,n1,m,j:longint;
a,b,c:array[0..10000] of integer;
begin
assign(f,'input.txt');
assign(f1,'output.txt');
reset(f);rewrite(F1);
readln(f,s);
readln(f,s1);
n:=length(s);
n1:=length(s1);
for i:=n downto 1 do
begin
val(s[i],x,m);
a[n-i+1]:=x;
end;
for i:=n1 downto 1 do
begin
val(s1[i],x,m);
b[n1-i+1]:=x;
end;
if (s='0')and(s1='0')then writeln(f1,'0')
else begin
for i:=1 to n1+n do
begin
c[i+1]:=(c[i]+a[i]+b[i])div 10;
c[i]:=(c[i]+a[i]+b[i])mod 10;
end;
i:=n1+n;
while (c[i]=0)and(i>1) do
i:=i-1;
for j:=i downto 1 do write(f1,c[j]); end;
close(F);close(F1);
end. |