问题描述:小明手头有一份红十字会的捐款名单,但是这份名单被外星人恶意破坏过你的任务是帮助小明去恢复这份名单。由于外星人低估了你的智商,破坏的规则非常简单先是将姓名和捐款金额联接到一行,再将这一行内容按顺序切成多行。
输入格式:有很多行,表示输入的字符串。
输出格式:输出共有多行,其中每一个人的信息一行,分别是姓名和金额,中间用空格隔开。
输入样例
zhangsa
n890liu
hua111
输出样例
zhangsan 890
liuhua 111
程序清单:
var
s, t: ansistring;
x, len, i: longint;
flag: boolean;
begin
s := ‘‘;
while not eof do
begin
readln(t);
s := s + t;
end;
len := length(s); t := ‘‘; x := 0; flag := false;
for i := 1 to len do
begin
if (s[i] <= ‘9’) and (s[i] >= ‘0’) then
begin
x := x*10 + ord(s[i]) – ord(‘0’);
if flag = false then
flag:=true ;
end
else
begin
if flag = true then
begin
writeln(t,,x) ;
x := 0;
t := ‘‘;
flag:=false ;
end;
t := t + s[i];
end;
end;
writeln(t, ‘ ‘, x);
end.