Определите, является ли строка палиндромом

@Gabdra · Регистрация: 23.12.2013

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

Дана строка S.
Определите, является ли она палиндромом.
Палиндромом называются строки, которые одинаково читаются как слева-направо, так и справа-налево.

Пример
S = 'asdfgfdsa'
Результат: TRUE

@Кирилл Пушкарев · 02.05.2014, 20:21

Pascal

var s1,s2:string;
     i:integer;
begin
  s2:='';
  write('Введите строку: ');
  readln(s1);
  for i:=1 to length(s1) do s2:=s1[i]+s2;
  if s1=s2 then writeln('Палиндром')
              else writeln('Не палиндром');
end.

@Cyborg Drone · 03.05.2014, 01:11

Pascal

var s: string;
    p: boolean;
    i: integer;
begin
  writeln('Enter string:');
  readln(s);
  p := true;
  for i := 1 to length(s) div 2 do
    begin
      p := s[i] = s[length(s) - i + 1];
      if not(p) then break
    end;
  writeln(p);
  readln
end.

@Gabdra 1 / 1 / 2 Регистрация: 23.12.2013 Сообщений: 112
		1
	Определите, является ли строка палиндромом 02.05.2014, 17:13. Показов 14390. Ответов 2 Метки нет (Все метки) Дана строка S. Определите, является ли она палиндромом. Палиндромом называются строки, которые одинаково читаются как слева-направо, так и справа-налево. Пример S = 'asdfgfdsa' Результат: TRUE 0

	03.05.2014, 01:11

Определите, является ли строка палиндромом

Решение