• Free pascal. Написать программу детектирования слова-полиндрома

Ответы 1

  • Var st: string; l,i: integer; b:boolean;begin readln(st); l:=length(st); b:=true; for i:=1 to l div 2 do  if st[i]<>st[l-i+1] then b:=false; if b then writeln('Слово - палиндром') else writeln('Слово - не палиндром');end.Пример:казакСлово - палиндром
  • Добавить свой ответ

Войти через Google

или

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

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

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