Question

Определить, является ли введенное предложение палиндромом (читается одинаково сначала до конца и наобарот ''аргентина манит негра'') вот что у меня получилось program z1;var s,s1,s2,b:string; a,c,d,e,z,r,i:integer;beginwriteln ('введите предложение ');readln(s);for c:=1 to length(s) dobeginz:=pos(' ',s);delete(s,z,1);end;for i:=length(s) downto 1 dobeginwrite(s[i]);end;if s=(s[i]) then writeln ('это палиндром') elsewriteln('не палиндром');end.

Answer 1

Var
    s, s1: string;
    i: integer;

begin
    writeln('введите предложение ');
    readln(s);
    
    repeat
        i := pos(' ', s);
        delete(s, i, 1);
    until i = 0;
    
    s1 := '';
    for i := length(s) downto 1 do
        s1 := s1 + s[i];
    
    if s = s1 then
        writeln('это палиндром')
    else
        writeln('не палиндром');
end.

Answer 2

У вас есть несколько ошибок в вашем коде, и он не будет работать правильно для определения, является ли предложение палиндромом. Вот исправленный код:

pascalCopy code
program PalindromeChecker;
var
  s, s1, s2, b: string;
  a, c, d, e, z, r, i: integer;
begin
  writeln('Введите предложение: ');
  readln(s);

  // Убираем пробелы и приводим строку к нижнему регистру
  s := LowerCase(s);
  s := StringReplace(s, ' ', '', [rfReplaceAll]);

  // Инициализируем переменные
  i := 1;
  j := Length(s);
  isPalindrome := true;

  // Проверяем, является ли строка палиндромом
  while (i < j) and isPalindrome do
  begin
    if s[i] <> s[j] then
      isPalindrome := false;
    Inc(i);
    Dec(j);
  end;

  if isPalindrome then
    writeln('Это палиндром')
  else
    writeln('Не палиндром');
end.

Этот код убирает пробелы из введенной строки и приводит ее к нижнему регистру. Затем он сравнивает символы с начала и конца строки, чтобы определить, является ли она палиндромом.