字符串转ascii - pascal吧

level 1

好好学习VvVvV 楼主

var a:string;
i:int64;
begin
readln(a);
for i:=1 to length(a) do
begin
write('#');
write(ord(a[i]));
end;
readln;
end.

2016年04月17日 07点04分 1