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

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

2024-11-16 16:27:15

推荐回答（2个）

回答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.

回答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.

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

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