трубопровод

[Smitt&Wesson]

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

А че, под столом помирать не охото? )

Вопрос не в том, где. Вопрс в том - как.

[Poma][a]

Тоесть наличие смерти стоить отрицать до того самого момента, когда она явится? Интересная теория..

Огромное спасибо!
Так-с.. Тогда я продолжу свой опрос..
Получается.. Дано нам число N. Мы находим, что этот вентиль находится в K-ой строке, с порядковым номером P.
Число P раскладываем на сумму чисел Фибоначчи.. Получаем P = p1+p2+...+pn
Берем последнее число из "желтой строки" для каждого pi (i from 1 to n) и складываем эти числа.. Получаем следующее N.. С ним делаем тоже самое..
Прав ли я?

[Smitt&Wesson]

Сообщение от Poma][a

[COLOR="Silver"]Тоесть наличие смерти стоить отрицать до того самого момента, когда она явится? Интересная теория..

Через меня, она иногда проходит. Почему не трогает, не знаю. Только с ног сбивает и люди умирают. Вот, сегодня прошлась. Даже не знаю, кто умер. Но точно знаю, что кто-то умер. Завтра узнаю имя и адрес.

[Аватар]

Интересная теория

Зачем отрицать? Не считать неизбежностью, а считать несчастным случаем с вероятностью 1.

Прав ли я?

Прав, как всегда

[kostan3]

var b,n: array[0..40] of Longint;
    x,m,i,j,k,f,g: Longint;
begin
  reset(input,'input.txt');
  read(x);
  Assign(Output,'output.txt');
  m:=0; i:=0; f:=0; g:=1; b[0]:=1; n[0]:=0;
  while m<x do begin
    Inc(i);
    b[i]:=f+g;
    f:=g;
    g:=b[i];
    Inc(m,g);
    n[i]:=m-g+1;
  end;
  for j:=i downto 1 do begin
    Write(x,' ');
    f:=0;
    Dec(x,n[j]-1);
    while x>0 do
      for k:=j downto 1 do
        if x>=b[k] then begin
          f:=f+b[k-1];
          x:=x-b[k];
          Break;
        end;
    x:=n[j-1]+f-1;
  end;
end.

Размер кода: 373

[kostan3]

var b,n: array[0..40] of Longint;
    x,m,i,j,k,f,g: Longint;
begin
  reset(input,'input.txt');
  read(x);
  Assign(Output,'output.txt');
  m:=0; i:=0; f:=0; g:=1; b[0]:=1; n[0]:=0;
  while m<x do begin
    i:=i+1;
    b[i]:=f+g;
    f:=g;
    g:=b[i];
    m:=m+g;
    n[i]:=m-g+1
  end;
  for j:=i downto 1 do begin
    Write(x,' ');
    f:=0;
    Dec(x,n[j]-1);
    while x>0 do
      for k:=j downto 1 do
        if x>=b[k] then begin
          f:=f+b[k-1];
          x:=x-b[k];
          Break
        end;
    x:=n[j-1]+f-1;
  end
end.

Размер кода: 368

[Аватар]

Ромаха с него 300 как минимум сделает

[Stilet]

n[0]:=0;

Это убери.

m:=0; i:=0; f:=0;

Это тоже.

[Poma][a]

Прав, как всегда

Яху! Дошло! Спасибо! Завтра попробуем написать..

Размер кода: 373

Опять старая песня о главном..
Видишь те m := 0; i := 0; f := 0; n[0] := 0? Убери..
Inc замени на := +

Зачем отрицать? Не считать неизбежностью, а считать несчастным случаем с вероятностью 1.

А это как? Вероятность 1 уже говорит о неизбежности.. Или подразумевался смысл, мол когда-нить да навестит меня старушка с косой, но не сегодня, и не завтра, и не через 44 года..?

Ромаха с него 300 как минимум сделает

Ага-ага, если Виталий не обгонит

[Аватар]

Или подразумевался смысл

Угу, когда нибудь. Лучше, что бы не в этой жизни