Автор Smakl задал вопрос в разделе Другие языки и технологии
Создайте программу на языке Паскаль, которая будет определять: является ли данная строка S палиндромом. (Ввод:S; Вывод Д и получил лучший ответ
Ответ от Gennady[гуру]
А зачем слово переворачиамть?
Palindr := True; {предположим, что палиндром}
L := Length(S);
for i:=1 to L div 2 do {цикл до середины строки}
if S[ i ] <> S[L-i+1] then begin
Palindr := False; {неа, не палиндром}
Break; {дальше можно не проверять}
end;
Ответ от Alex Pit[гуру]
Цена вопроса?
Цена вопроса?
Ответ от Chester[гуру]
Ага, щас, подожди.
Ага, щас, подожди.
Ответ от Захватов Роман[гуру]
for i:= length(s) downto 1 do s2:=s2+s [ i ]; if s=s2 then write('да') else write ('нет') рабочее тело программы, остальное оформи сам, но не факт, что работает)))))))
for i:= length(s) downto 1 do s2:=s2+s [ i ]; if s=s2 then write('да') else write ('нет') рабочее тело программы, остальное оформи сам, но не факт, что работает)))))))
Ответ от Nnn7[гуру]
var a,b,c : string; i : longint; begin clrscr; write('Введите слово: ');readln(a); b:=''; for i:=1 to length(a) do b:=a[ i ]+b;{ переворачиваем слово } if a=b then write('перевертыш') else write('не перевертыш'); <b
var a,b,c : string; i : longint; begin clrscr; write('Введите слово: ');readln(a); b:=''; for i:=1 to length(a) do b:=a[ i ]+b;{ переворачиваем слово } if a=b then write('перевертыш') else write('не перевертыш'); <b
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Создайте программу на языке Паскаль, которая будет определять: является ли данная строка S палиндромом. (Ввод:S; Вывод Д