不是VIP会员,不能显示答案

题目解答

题目:
问题描述:小明手头有一份红十字会的捐款名单,但是这份名单被外星人恶意破坏过你的任务是帮助小明去恢复这份名单。由于外星人低估了你的智商,破坏的规则非常简单先是将姓名和捐款金额联接到一行,再将这一行内容按顺序切成多行。
输入格式:有很多行,表示输入的字符串。
输出格式:输出共有多行,其中每一个人的信息一行,分别是姓名和金额,中间用空格隔开。

输入样例
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.
考点:
分析:
解答:
评论:
老师: