• программа на паскале
    с клавиатуры вводится текстовая строка , не содержащая пробелов и знаков препинания . Определить , является ли она палиндромом
    (Палиндром-строка, которую можно одинаково читать в обе стороны)

Ответы 1

  • var s:string; l,k,i:integer;beginwriteln('Введите строку:');readln(s);k:=0; l:=length(s);for i:=1 to l div 2 do if s[i]=s[l-i+1] then k:=k+1;if k=l div 2  then writeln('палиндром') else writeln('не палиндром');end.Пример:Введите строку:казакпалиндром
  • Добавить свой ответ

Войти через Google

или

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

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

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