中科新闻网一建的报名条件:PASCAL题
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 14:35:04
输入一个字符串，内有数字和非数字字符。如A123X456Y7A，302ATB567BC，打印字符串中所有连续（指不含非数字字符）的数字所组成的整数，并统计共有多少个整数。
Var
a:string;
s,i:word;
Begin
read(a);s:=0;
for i:=1 to length(a)+1 do
if (a[i]>='0') and (a[i]<='9') then
write(a[i])
else if (a[i-1]>='0') and (a[i-1]<='9') then
begin
inc(s);
writeln;
end;
writeln(s,' numbers');
End.
太简单了