Description
在算法竞赛中，题目一般保证了输入数据的合法性。然而在工程开发中，我们往往不期望程 序得到的输入都是合法的。
D 君正忙着向校内 OJ 添加题目，在写了第 233 个 val.cpp 之后，她的头脑中涌现出了这样 的想法。于是她决定出一道不需要写 val.cpp 的题。
输入两个整数，你需要做的就是输出她们的和。
D 君正忙着向校内 OJ 添加题目，在写了第 233 个 val.cpp 之后，她的头脑中涌现出了这样 的想法。于是她决定出一道不需要写 val.cpp 的题。
输入两个整数，你需要做的就是输出她们的和。
Input
第一行一个正整数 T。
接下来 T 行，每行代表一组数据。
一组合法的数据包含由一个空格隔开的两个合法的十进制整数，行首和行尾不包含任何多余 的字符。
一个合法的十进制整数要么是 0，要么由一个可选的负号，一个 1 到 9 之间的数字，和若干 个 0 到 9 之间的数字顺序连接而成，并且这两个数字均在区间 [−2^31 , 2^31) 之内。
一组不合法的数据是一个不匹配以上规则的字符串。
接下来 T 行，每行代表一组数据。
一组合法的数据包含由一个空格隔开的两个合法的十进制整数，行首和行尾不包含任何多余 的字符。
一个合法的十进制整数要么是 0，要么由一个可选的负号，一个 1 到 9 之间的数字，和若干 个 0 到 9 之间的数字顺序连接而成，并且这两个数字均在区间 [−2^31 , 2^31) 之内。
一组不合法的数据是一个不匹配以上规则的字符串。
Output
对于每组数据，如果该数据是合法的请输出一行一个整数代表答案，否则请输出 Input Error。
Solution
这题还能怎么讲啊，按照Input的要求做就好了，注意前导零。
代码（巨丑无比）
1 var 2 TT:longint; 3 s:ansistring; 4 procedure main; 5 var 6 a,b:int64; 7 i,l:longint; 8 bo1,bo2:boolean; 9 begin 10 l:=length(s); 11 if l<=2 then 12 begin 13 writeln('Input Error'); exit; 14 end; 15 bo1:=false; a:=0; 16 if s[1]='-' then bo1:=true else 17 if (ord(s[1])>=48) and (ord(s[1])<=57) then a:=ord(s[1])-48 else 18 begin 19 writeln('Input Error'); exit; 20 end; 21 if (bo1) and (s[2]='0') then 22 begin 23 writeln('Input Error'); exit; 24 end; 25 if l>=2 then 26 if (not bo1) and (a=0) and (s[2]<>' ') then 27 begin 28 writeln('Input Error'); exit; 29 end; 30 for i:=2 to l do 31 if s[i]<>' ' then 32 begin 33 if (ord(s[i])>=48) and (ord(s[i])<=57) then 34 a:=a*10+(ord(s[i])-48) else 35 begin 36 writeln('Input Error'); exit; 37 end; 38 if bo1 then 39 begin 40 if a>maxlongint+1 then 41 begin 42 writeln('Input Error'); exit; 43 end; 44 end else 45 begin 46 if a>maxlongint then 47 begin 48 writeln('Input Error'); exit; 49 end; 50 end; 51 end else break; 52 if (bo1) and (i=2) then 53 begin 54 writeln('Input Error'); exit; 55 end; 56 if i+1<=l then 57 if s[i+1]=' ' then 58 begin 59 writeln('Input Error'); exit; 60 end; 61 delete(s,1,i); 62 l:=length(s); 63 if l=0 then 64 begin 65 writeln('Input Error'); exit; 66 end; 67 bo2:=false; b:=0; 68 if s[1]='-' then bo2:=true else 69 if (ord(s[1])>=48) and (ord(s[1])<=57) then b:=ord(s[1])-48 else 70 begin 71 writeln('Input Error'); exit; 72 end; 73 if l>=2 then 74 if (not bo2) and (b=0) and (s[2]<>' ') then 75 begin 76 writeln('Input Error'); exit; 77 end; 78 if (bo2) and (s[2]='0') then 79 begin 80 writeln('Input Error'); exit; 81 end; 82 for i:=2 to l do 83 if s[i]<>' ' then 84 begin 85 if (ord(s[i])>=48) and (ord(s[i])<=57) then 86 b:=b*10+(ord(s[i])-48) else 87 begin 88 writeln('Input Error'); exit; 89 end; 90 if bo2 then 91 begin 92 if b>maxlongint+1 then 93 begin 94 writeln('Input Error'); exit; 95 end; 96 end else 97 begin 98 if b>maxlongint then 99 begin 100 writeln('Input Error'); exit; 101 end; 102 end; 103 end else break; 104 if (bo2) and (l=1) then 105 begin 106 writeln('Input Error'); exit; 107 end; 108 if i<=l then 109 if (ord(s[i])<48) or (ord(s[i])>57) then 110 begin 111 writeln('Input Error'); exit; 112 end; 113 if bo1 then a:=-a; 114 if bo2 then b:=-b; 115 writeln(a+b); 116 end; 117 118 begin 119 assign(input,'aplusb1.in'); 120 assign(output,'aplusb.out'); 121 reset(input); 122 rewrite(output); 123 readln(TT); 124 while TT>0 do 125 begin 126 readln(s); 127 main; 128 dec(TT); 129 end; 130 close(input); 131 close(output); 132 end.