ПОМОГИТЕ ПОЖАЛУЙСТА)) дан исходный текст. проверить является ли он перевертышем. (...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА)) дан исходный текст. проверить является ли он перевертышем. ( читается туда и обратно одинаково, например КОМОК). x- исходный текст, у- текст в обратном порядке. Вывести на кран, "является перевертышем" или "не является перевертышем".

Answer 1

var   s:string;
{функция проверки на палиндром}function palind(s:string):boolean; var   i:integer;   fl:boolean; begin   fl:=true;   for i:=1to length(s) div2do     if s[i]<>s[length(s)-i+1]then       fl:=false;   Result:=fl end;

{основная программа}begin   writeln('Введите строку...');   readln(s);   if palind(s)then     writeln('Данная строка является палиндромом!')   else     writeln('Данная строка НЕ является палиндромом!')end.

Без функции:var s:string;
i:integer; palin:boolean; {основная программа}begin   writeln('Введите строку...');   readln(s);
fl:=true;   for i:=1to length(s) div2do     if s[i]<>s[length(s)-i+1]then       fl:=false;
if palin then     writeln('Данная строка является палиндромом!')else     writeln('Данная строка НЕ является палиндромом!')end.