pascal语言 回文字符串。是指一个字符串从左到右读与从右向左读是完全一样的。例如

Question

pascal语言
回文字符串。是指一个字符串从左到右读与从右向左读是完全一样的。例如“1991”、“abcba”构成回文，而“abc”不构成回文。输入一个字符串（长度<=255），判断其是否为回文字符串。（提示：本题可以把输入的字符串看成字符数组，先比较首尾字符，如不相同则退出程序，如果相同则再比较第二个字符和倒数第二个字符……依次比较到最中间的两个字符或者最中间的一个字符，可以用a[i]与a[n 1-i]判断左右是否相等。）
输入：abcde 输出:no 输入：abcba 输出：yes

Answer 1

var
s:string;
i,m,n:integer;
yesorno:boolean;
begin
readln(s);
{s:='hggsdjs';}
m:=length(s);
n:=m div 2;
yesorno:=true;
for i:=1 to n do 
if s[i]<>s[m+1-i] then begin yesorno:=false; break; end;
if yesorno then writeln('yes') else writeln('no');
end.

追问

能不能帮忙再写两个
输出以下字符图形（行数n<10）：
输入：5
输出：
5
54
543
5432
54321

16、输出以下字符图形。（提示：本题借助chr(64+i))来输出具体字母）
输入：5
输出：
       AA
     BBBB
   CCCCCC
  DDDDDDDD
  EEEEEEEEEE

本回答被网友采纳

Answer 2

program huiwen(input,output);
var a:string;i,b,n:integer;
begin
  read(a);
  b:=length(a);
  n:=0;
  for i:=1 to b do
  begin
    if a[i]=a[b+1-i] then n:=n+1
  end;
  if n=b then write('Yes') else write('No');
  readln;
end.