profile="http://gmpg.org/xfn/11"> Проверка строки на палиндром на Паскале. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Проверка строки на палиндром на Паскале.

Проверка строки на палиндром на Паскале.
Палиндром — это слова, которые можно читать справа налево и слева направо.
Алгоритм: две переменные типа String, в одину записывается слева направо, в другой наоборот. Затем сравниваем эти переменные.

program Palindrom;
  //Проверка строки на палиндром на Паскале.
var
  s_Word1, s_Word2: string;
  i_Num, i_n, i, j: integer;
  r_Acoun: real;
begin
  WriteLn('Введите слово:');
  ReadLn(s_Word1);
  s_Word2 := '';
  r_Acoun := 0;
  for i := length(s_Word1) downto 1 do
  begin
    s_Word2 := s_Word2 + s_Word1[i];
  end;
  if s_Word2 = s_Word1 then
    WriteLn(s_Word1, ' - палиндром')
  else
    WriteLn(s_Word1, ' - не палиндром');

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Проверка строки на палиндром на Паскале
Проверка строки на палиндром на Паскале.

Комментарии запрещены.