外加： 这样把字符串转成数字
谢谢！！
參考答案:字符串函数
字符串转为数值val
定义： procedure Val(S; var V; var Code: Integer);
在这里:
S 是由一系列数字字符构成的字符串类型变量；。
V 是整型或实型变量；
Code 是Integer型变量
注意：Val将S转为它的数值形式。
例子：
var s:string;I, Code: Integer;
begin
s:='1234';
val(s,i,code);
writeln(i); // 输出1234
end.
数值转为字符串str
定义： procedure Str(X [: Width [: Decimals ]]; var S:string);
注意：将数值X转成字符串形式。
例子：
var
S: string;
I: longint;
begin
readln(I);//如果输入1234
Str(I, S);
Writeln(S); //那么S='1234',I=1234
end.
