Cтрока: Проверить, является ли введенная с клавиатуры строка палиндромом?

@nikola · Регистрация: 23.04.2012

Author24 — интернет-сервис помощи студентам

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

@igor_kz · 09.07.2012, 22:26

Pascal

Var s , t : string;
    i : integer;
    r : boolean;
Begin
    readLn(s);
    t := '';
    for i := 1 to length(s) do
        if s[i] in ['a'..'z' , 'A'..'Z'] then
            t := t + upCase(s[i]);
    r := true;
    for i := 1 to length(s) div 2 do
        if s[i] <> s[length(s) - i + 1] then
            r := false;
    if r then
        Write('pal')
    else
        Write('not pal');   
End.

@nikola 0 / 0 / 0 Регистрация: 23.04.2012 Сообщений: 14
		1
	Cтрока: Проверить, является ли введенная с клавиатуры строка палиндромом? 09.07.2012, 22:07. Показов 2550. Ответов 1 Метки нет (Все метки) Проверить является ли введенная с клавиатуры строка палиндромом(т.е. слева на право и справа на лево читается одинаково, например "а роза упала на лапу азора"). пробелами пренебрегать 0

	09.07.2012, 22:26

Cтрока: Проверить, является ли введенная с клавиатуры строка палиндромом?

Решение