• НАПИСАТЬ ПРОГРАММУ НА PASCAL
    "Дана строка символов S, состоящая максимум из 250 символов. Напишите программу, которая проверит является ли строка S палиндромом. Примеры палиндромов: ‘COJOC’, ‘CAZAC’, ‘POTOP’, ‘ROTOR’."

Ответы 6

  • Я добавил еще один end но все равно она не находит палиндромы
    • Автор:

      fonzie
    • 6 лет назад
    • 0
  • vars:string;l,i:byte;beginassign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output);readln(s);l := length(s);for i:= 1 to l div 2 do beginif s[i] <> s[l-i+1] then beginwriteln('NO');halt;end;end;writeln('YES');close(input);close(output);end.
  • переписал, протестил. должно работать.
    • Автор:

      andyaj6t
    • 6 лет назад
    • 0
  • если работаешь в ABC Pascal, вот другой код:
  • vars:string;l,i:byte;beginreadln(s);l := length(s);for i:= 1 to l div 2 do beginif s[i] <> s[l-i+1] then beginwriteln('NO');halt;end;end;writeln('YES');end.
    • Автор:

      brenden
    • 6 лет назад
    • 0
  • vars:string;l,i:byte;beginreadln(s);l := length(s);for i:= 1 to l div 2 do beginif s[i] <> s[l-i+1] then beginwriteln('NO');halt;end;end;writeln('YES');end.
    • Автор:

      orlando13
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years