pascal帮帮忙判断回文串二  读入一行字符,以#结束。这些字符只包含大写字母、小写字母和数字,总长度不超过10000

pascal帮帮忙
判断回文串二 
读入一行字符,以#结束。这些字符只包含大写字母、小写字母和数字,总长度不超过10000,判断该字符串是否是“回文字符串”。如果是,则输出一个yes,否则输出一个no。注意:本题中的#只是一个结束符,不包括在字符串内。 同时,本题要严格区分大写字母和小写字母。  
输入样例1:
abc313cba#
输出样例1:
yes
输入样例2:
Aba#
输出样例2:
no   
佳宝高钙酸奶 1年前 已收到1个回答 举报

傲雪天 幼苗

共回答了19个问题采纳率:78.9% 举报

var s:string; i,j:integer;
begin
readln(s);
i:=1; j:=pos('#',s)-1;
while (i=j then writeln('yes') else writeln('no');
end.

1年前

4
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.026 s. - webmaster@yulucn.com