Question

pascal语言编程题:从键盘输入任意长度的字符串,其中包括数字和字母.由程序将其这串字符中的数字按反序

输.例如输入Delphi6TP70Ada586*,输出为685076.(提示:本题采用字符数组编写.)

Answer 1

程序代码：

{$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下运行示例：

追问

编程序在下面的6个姓名中找出含有字符串“HONG”的同学，将其姓名打印出来