Помогите решить задачу по информатике. Дана строка символов определить является ли она палиндромом.

  • Пожалуйста: http://bit. ly/11Y2HDz
    (не забудь убрать пробелы)

    Удачи!

  • program palindrom;
    uses crt;
    var a,b:string;
    i,j,k:integer;
    pal:boolean;
    begin
    clrscr;
    writeln('ввести строку ');
    readln(a); k:=0;
    for i:=length(a) downto 1 do begin
    k:=k+1; b[ k ]:=a [ i ]; end;
    writeln('----------');
    pal:=false;
    for i:=1 to k do
    if a [ i ] <> b [ i ] then pal:=true;
    if pal then writeln('no ') else writeln('palindrom');
    for i:=1 to k do
    write(b [ i ]);
    writeln;
    writeln('Конец задачи ');
    readln;
    end.

Вас заинтересует