Проверить, является ли фрагмент строки с i-го по j-й символ палиндромом - Turbo Pascal

Формулировка задачи:

используя рекурсию,проверить является ли фрагмент строки с i-го по j-й символ палиндромом. был бы очень благодарен.Добавлено через 2 часа 30 минутзадачу решил, вопрос исчерпан)

Код к задаче: «Проверить, является ли фрагмент строки с i-го по j-й символ палиндромом - Turbo Pascal»

textual
Var
  St :String;
  i : Byte;
 
Function PolyRekurs(S : String; a,b : Byte) : Boolean;
Begin
  PolyRekurs:=True;
  If a<=b then
    If S[a]=S[b] then PolyRekurs:=PolyRekurs(S,a+1,b-1) else PolyRekurs:=False;
End;
 
Begin
  St:='вапр абырвалглаврыба впрыыцнлоыл';
  If PolyRekurs(St,6,20) then Writeln('Yes') else Writeln('No');
End.

14   голосов, оценка 4.429 из 5


СОХРАНИТЬ ССЫЛКУ