Найти максимальную по длине неубывающую подпоследовательность цифр, входящую в данную строку

@KillerPasckal · Регистрация: 21.11.2014

Author24 — интернет-сервис помощи студентам

4.Пусть дана строка S, состоящая только из цифр. Найти максимальную по длине неубывающую подпоследовательность цифр,входящую в S.

@ZX Spectrum-128 · 23.11.2014, 16:57

Пусть дана строка S, состоящая только из цифр. Найти максимальную по длине неубывающую подпоследовательность цифр, входящую в S

@APALoff · 24.11.2014, 12:30

Pascal

Var
  S : String;
 
Function TreeS(St : String) : String;
Var
  i : Byte;
  t : String;
Begin
  If Length(St)>1 then
  Begin
    i:=2;
    While (i<=Length(St)) and (St[i]>=St[i-1]) do Inc(i);
    t:=TreeS(Copy(St,i,Length(St)-i+1));
    If Length(t)>(i-1) then TreeS:=t else TreeS:=Copy(St,1,i-1);
  end else TreeS:=St;
end;
 
Begin
  S:='93045345667788990120101900112233445566778899059308213456899354689035678458062905';
  Writeln(TreeS(S));
end.

@KillerPasckal 0 / 0 / 0 Регистрация: 21.11.2014 Сообщений: 21
		1
	Найти максимальную по длине неубывающую подпоследовательность цифр, входящую в данную строку 21.11.2014, 20:13. Показов 1874. Ответов 2 Метки нет (Все метки) 4.Пусть дана строка S, состоящая только из цифр. Найти максимальную по длине неубывающую подпоследовательность цифр,входящую в S. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	23.11.2014, 16:57	2
	Пусть дана строка S, состоящая только из цифр. Найти максимальную по длине неубывающую подпоследовательность цифр, входящую в S 0

	24.11.2014, 12:30

Найти максимальную по длине неубывающую подпоследовательность цифр, входящую в данную строку

Решение