трубопровод

[Stilet]

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

Не обгоню. Не интересно за анорексией гоняться.

[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');
  g:=1; b[0]:=1;
  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;
    x:=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.

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

[Poma][a]

Все циклы махни на repeat..
сделай ти Int64
В 3-ей строке с конца убери ;

[kostan3]

Сообщение от Аватар

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

был бы код на с++ я бы до 280 сжал

[Аватар]

дык подправь чуть-чуть код из #43

[kostan3]

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

Все циклы махни на repeat..
сделай ти Int64
В 3-ей строке с конца убери ;

Int64 не работает
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation

task.pas(16) Error: For loop control variable must have ordinal type

task.pas(21) Error: For loop control variable must have ordinal type

task.pas(21) Error: Assignment to FOR-Loop variable ''

repeat

я не пользуюсь (не умею)

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');
  g:=1; b[0]:=1;
  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;
    x:=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.

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

[kostan3]

Сообщение от Аватар

дык подправь чуть-чуть код из #43

как? у меня идей нет

[rrrFer]

как? у меня идей нет

Значит бросай программирование )

[Poma][a]

Такушки..
Изначально хотелось завернуть все в рекурсию.. выходило как-то уж слишком много..
Потом получилось копия кода Аватара(только переменные были другими )
Посему я решил побаловаться этим кодом..

var b,n: array[0..40] of Int64;
    x,m,i,j,k,f,g: Int64;
begin
  reset(input,'input.txt');
  read(x);
  rewrite(output,'output.txt');
  g:=1; b[0]:=1;
  repeat
    i := i+1;
    b[i]:=f+g;
    f:=g;
    g:=b[i];
    n[i] := m+1;
    m := m+g
  until m >= x;
  repeat
    Write(x,' ');
    f:=0;
    Dec(x,n[i]-1);
    repeat
     
      k := i;
      while (k > 0) xor (x >= b[k]) do Dec(k);
      f := f + b[k-1];
      x := x - b[k]
    until x <= 0;
       
    x:=n[i-1]+f-1;
    Dec(i)
  until 0 = i
end.

331..
Кто скажет, где лишний 31 символ?

[Stilet]

Dec(x,n[i]-1);

x:=x-n[i]-1;
Не?