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

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

Значит у тебя еще полно времени для прочтения Faq'а и написания проги

Алгоритм:

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

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.

Уточни условие. Что значит "неубывающую последовательность цифр числа 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.

Интересно...

      if b>k then begin
        k:=b;
        b:=1;
      end else
        b:=1;

Почему бы не заменить на:

begin
  if b>k then k:=b;
  b:=1;
end;

?

А как вывести саму последовательность цифр, а не только её длину?

niga, ты хочешь научится програмировать или нет? Предлагай свои варианты, а мы их будем поправлять.
Если же тебе надо просто отвязаться от учителя - Задачи на заказ

Согласен. Я не заменил, потому что хотел делать только те изменения, без которых, на мой взгляд, не обойтись.



Сейчас ты запоминаешь только длину - в переменной к. А ты запоминай не только длину, а всё, что необходимо, чтобы в конце работы ты мог вывести эту подстроку.