language: Pascal (fpc) (fpc 2.2.0)
date: 103 days 5 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

var a,b,c:ansistring;
    temp,f,g:array[1..1000] of integer;
    i,z,pos,simpan:integer;
 
function walik(s:string):string;
 begin
  walik:=s;
  for i:=1 to length(s) do
   walik[i]:=s[length(s)-i+1];
 end;
 
function max(x,y:integer):integer;
 begin
  if x>y then max:=x
  else if y>x then max:=y
  else max:=x;
 end;
 
begin
readln(a);
readln(b);
 
a:=walik(a);
b:=walik(b);
 
for i:=1 to length(a) do
 val(a[i],f[i],z);
 
for i:=1 to length(b) do
 val(b[i],g[i],z);
 
 
for i:=1 to max(length(a),length(b))+1 do
begin
 z:=f[i]+g[i]+simpan;
 simpan:=z div 10;
 temp[i]:=z mod 10;
end;
 
pos:=i;
if temp[pos]=0 then dec(pos);
 
for i:=1 to pos do
begin
 str(temp[i],a);
 c:=c+a;
end;
 
c:=walik(c);
 
writeln(c);
end.