eg7-8.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program aplindrome(input,output);
const
maxsize=20;
var
a,b:string[maxsize];
i,lg:integer;
begin
  readln(a);
  lg:=length(a);
  b:='';
  for i:=1 to lg do
     b:=b+a[lg-i+1];
  writeln(lg,'a=',a,'     b=',b);
  if a=b then writeln('true') else writeln('false');
end.