Нужна помощь

[Наська :)]

Помогите,плизз. решить задачку в паскале. Необходимо определить, является ли слово перевертышем( типа шалаш) Очень надо

[Данила]

в чем проблема? сравнивайте 1ую букву с последней если равны , то 2ую с предпоследней и тд,пока либо не дойдете до серидины,либо не попадутся неравные буквы

[Наська :)]

все, я нашла решение, пасибки

[Наська :)]

так?
Program nastya;
var s:string;

n,i,x: integer ;

begin
read(s);
i:=1;
n:=length(s);


for x:=0 to (n-1) do
begin
if s[i+x]<>s[n-x]
then writeln('нет')
else writeln('да');

 end;
 
 end.
но тока из-за цикла да и нет выводится по количеству букв(

[Данила]

ну естественно.

цикл нужно делать до n/2 ,зачем вам пробегать слово с 2ух сторон целиком
во 2ых,нужно лишь накапливать счетчик,пока не закончите цикл,а дальше если счетчик = n ,то да, иначе нет

[Наська :)]

пасибки