pascal程序：输入任意长度的一串字符,包括数字和字母,并以*号结束。让字符中数字反序输出。

如：输入njfdng89fgsdfg9sdfs7667688df*,输出8867667998

var s:ansistring;
c:char;

begin
repeat
read(c);
if(c = '*')then break;
if(c in ['0'..'9'])then
s:=c+s;
until false;

writeln(s);

end.

程序代码： {$apptype console} //设置程序为非图形界面，turbo pascal等无需这一行 var   i,j:integer;   s1,s2:array [0..255] of char; begin   readln(s1);   j:=0;   for i:=0 to length(s1)-1 do     if (s1[i]>='0')and(s1[i]<='9') then     begin       s2[j]:=s1[i];       j:=j+1;     end;   for i:=j-1 downto 0 do write(s2[i]); end. 在delphi7下运行示例：