Написать программу, которая запрашивает слово и проверяет, является ли это слово...

Question

Написать программу, которая запрашивает слово и проверяет, является ли это слово палиндромом. Pascal ABC

Answer 1

var

    s: string;

function Invert(s: string): string;

var

    i: integer;

    t: string;

begin

    t := '';

    for i := 1 to length(s) do

        t := s[i] + t;

    

    Invert := t;

end;

begin

    Write('Введите слово: ');

    Readln(s);

    

    s := Trim(s);

    s := Uppercase(s);

    

    if Invert(s) = s then 

        Writeln('Палиндром')

    else 

        Writeln('Не палиндром');

end.

Comments

бывает. и если это заметят то снимают отметку и отправляют на исправление или вообще удаляют ответ

---

ответов море. и там не только опечатки но и спам и все что попало валяется. Архив это громадное нагромаждение которое проверять и проверять.

---

Потому мы проверяем более менее популярные только

---

это добровольная работа

---

подарки один раз присылали

Answer 2

Var
  s:string;
  i,n:byte;
  p:boolean;
begin
  Write('Введите слово: ');
  Readln(s);
  n:=Length(s);
  p:=true;
  for i:=1 to n div 2 do
    if s[i]<>s[n-i+1] then
    begin
      p:=false;
      break
    end;
  if p then Writeln('Палиндром')
  else Writeln('Не палиндром')
end.

Comments

"Анна" уже не палиндром?