Question

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

Answer 1

var   s:string;
{функция проверки на палиндром} function palind(s:string):boolean; var   i:integer;   fl:boolean; begin   fl:=true;   for i:=1 to length(s) div 2 do     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:=1 to length(s) div 2 do     if s[i]<>s[length(s)-i+1] then       fl:=false;
if palin then     writeln('Данная строка является палиндромом!') else     writeln('Данная строка НЕ является палиндромом!') end.