Задача на последовательность 2

[maratius]

Помогите решить следующую задачу:
http://screencloud.net/img/screensho...ab66a0c969.png
Есть у меня такая идея: рассмотрим один член последовательности ab...cd. Если в нем есть числа 29, то их можно найти, также можно найти первую и последнюю цифры (они нужны для того, чтобы если предыдущий член посл. заканчивается на 2, а следующий начинается на 9, то это есть комбинация 29: 129292, 934 - к=3) :

var a,l,m,n,p,k:longint;
begin
 readln(n);
 l:=n mod 10;
 while n<>0 do begin
  a:=n mod 100;
  if a=29 then begin
   n:=n div 100;
   p:=2;
   k:=k+1; 
   if k>m then m:=k;
  end
  else begin
   p:=n mod 10;
   n:=n div 10; 
   k:=0;
  end;
 end;
 writeln(p:3,m:3,l:3)
end.

В итоге пришел к этому, дальше голова отказывается что-то искать и исправлять:

var a,l,m,n,l1,p,k:longint;
begin
readln(n);
while n<>0 do begin
 l1:=l;
 l:=n mod 10;
 while n<>0 do begin
  a:=n mod 100;
  if a=29 then begin
   n:=n div 100;
   p:=2;
   k:=k+1; 
   if k>m then m:=k;
  end
  else begin
   p:=n mod 10;
   n:=n div 10; 
   k:=0;
  end;
  if l1*10+p=29 then  k:=k+1; 
 end;
 readln(n);
end;
writeln(k:3);
end.

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

[Stilet]

Опа! А где сказано что в качестве элементов выступают цифры?

[maratius]

Сообщение от Stilet

Опа! А где сказано что в качестве элементов выступают цифры?

Элементы последовательности - натуральные числа, они образуют последовательность, в которой и нужно исследовать подпоследовательности 29-ок. Цифры могут встречаться, как односоставные числа. Я так понял.

[BDA]

Что-то у Вас больно накручено. Вам просто нужно найти подпоследовательность из 29, т.е., например:
1 2 3 29 29 4 5 6 29 7 8 9 29 29 29 0
И выбрать из таких подпоследовательностей самую длинную (в примере последняя имеет максимальную длину).

[maratius]

Да! Чисел же. А я думал, что нужно анализировать последовательность, образованную вводящимися числами, и искать в ней комбинации цифр 2 и 9. Спасибо за пояснение.

[Serge_Bliznykov]

Да! Чисел же.

точно так!

а вот и решение:

var
  k1, k2: integer;
  one : integer;

function max(a, b: integer): integer;
begin
  if a > b then
    max := a
  else
    max := b;
end;

begin
  k1 := 0;
  k2 := 0;
  read(one);
  while one<>0 do begin
    if one = 29 then begin
      k1 := k1 + 1;
      k2 := max(k1, k2)
    end
    else k1 := 0;
    read(one);
  end;
  writeln(k2);
end.

[Stilet]

Тогда все проще:

repeat
 readln(i); 
 if i=29 then inc(cnt) else begin
  if cnt<max then max:=cnt;
  cnt:=0;
 end;
until i=0;

Ну или типа такого...

[maratius]

C разрешенным мне набором операторов получается так:

var k,m,n:longint;
 begin
 readln(n);
 while n<>0 do begin
  if n=29 then begin
   k:=k+1;
   if k>=m then
    m:=k;
   end
  else k:=0;
  readln(n);
 end;
 writeln(m);
end.

[Serge_Bliznykov]

C разрешенным мне набором операторов получается так:

перед чтением любой переменной эта переменная должна быть проиницилизированна!!
вот так, например:

var k,m,n:longint;
 begin
  k := 0;
  m := 0;
  readln(n);
  while n<>0 do begin
    if n=29 then begin
.....

p.s. Буратино дали два яблока. Сколько у него теперь яблок?
Ответ - неизвестно сколько, ведь мы не знаем, сколько у него было яблок в начале!!

p.p. s. я знаю, что у Вас и так сработало. Поверьте мне, это далеко не всегда будет. Да и по науке надо переменные иницилизировать!

[maratius]

Сообщение от Serge_Bliznykov

перед чтением любой переменной эта переменная должна быть проиницилизированна!!
вот так, например:

var k,m,n:longint;
 begin
  k := 0;
  m := 0;
  readln(n);
  while n<>0 do begin
    if n=29 then begin
.....

p.s. Буратино дали два яблока. Сколько у него теперь яблок?
Ответ - неизвестно сколько, ведь мы не знаем, сколько у него было яблок в начале!!

p.p. s. я знаю, что у Вас и так сработало. Поверьте мне, это далеко не всегда будет. Да и по науке надо переменные иницилизировать!

Да, это я знаю, просто торопился и воспользовался тем, что и так сработает.