Задача о натуральном числе, Помогите. Умоляю Опции

[niga]

Привет всем, кто решил посмотреть мой просящий sos топик.
Мне в пятницу надо сдать задачу, а я ни как не могу её осилить. Если кто-то знает, как решить такую задачу очень прошу вас помочь мне. Заранее всем спасибо и большой respect.

Текст задачи:
Дано натуральное число N. Указать самую длинную неубывающую последовательность цифр числа N.

[niga]

Написал код программы, но она не компилируется выходит ошбка которую я не могу понять.
Я в паскале ваще просто ноль не знаю зачем на экономическом надо его изучать.
Посмотрите что я написал не так.

program N_3;
var
   s: string;
   N,i,b,k : word;
begin
	 writeln('Vvedite natural chislo N');
	 readln(N);
	 str(N,s);
	 b:=0;
	 k:=0;
	 for i:=1 to s[i-1] do
	 if s[i+1]>=s[i] then
	 else
		 if b>k then
		 begin
			  k:=b;
			  b:=0;
			  writeln('itog', k);
			  end
			  else
			  b:=0;
end.

Сообщение отредактировано: volvo - 3.11.2006 19:20

[Michael_Rybak]

Уточни условие. Что значит "неубывающую последовательность цифр числа N".

Имеется ввиду подпоследовательность идущих *подряд* цифр? Или подпоследовательность, которую можно получить, выкинув часть цифр? Например, для числа 15234517 ответ 2345 или 123457?

Решение Bokula - для первого варианта.

P.S. Вот исправленный код:

1. Не компилиось из-за "for i:=1 to s[i-1] do". Нужна функция length.
2. Цикл делаем все-таки не до предпоследнего, а до последнего символа, чтобы работало на строках длины 1.
3. Читаем сразу строку (readln(s)), чтобы работало на длинных.
4. Переменную b инициализируем единицей а не нулем, чтобы учитывать последний символ найденной последовательности.
5. Не забываем в случае s[i+1]>= s[i] делать буф:=буф+1
6. Ответ выводим в самом конце, а не после каждого найденного улучшения.

program N_3;
  var
    s: string;
    i, b, k: word;
begin
  writeln('Vvedite natural chislo N');
  readln(s);
  b:=1;
  k:=0;
  for i:=1 to length(s) do
    if (i < length(s)) and (s[i+1]>=s[i]) then
      Inc(b)
    else
      if b>k then begin
        k:=b;
        b:=1;
      end else
        b:=1;
  
   writeln('itog ', k);
end.