трубопровод

[Poma][a]

Ага.. Проглядел..

var b,n: array[0..40] of Int64;
    x,m,i,k,f: Int64;
begin
  reset(input,'input.txt');
  read(x);
  rewrite(output,'output.txt');
  k:=1; b[0]:=1;
  repeat
    i := i+1;
    b[i]:=f+k;
    f:=k;
    k:=b[i];
    n[i] := m+1;
    m := m+k
  until m >= x;
  repeat
    Write(x,' ');
    f:=0;
    x := 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.

325

[kostan3]

var b,n: array[0..40] of Int64;
    x,m,i,k,f: Int64;
begin
  reset(input,'input.txt');
  read(x);
  Assign(Output,'output.txt');
  k:=1; b[0]:=1;
  repeat
    i := i+1;
    b[i]:=f+k;
    f:=k;
    k:=b[i];
    n[i] := m+1;
    m := m+k
  until m >= x;
  repeat
    Write(x,' ');
    f:=0;
    x := 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;
    i:=i-1
  until 0 = i
end.

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

[Poma][a]

var b,n: array[0..40] of Int64;
    x,m,i,k,f: Int64;
begin
  reset(input,'input.txt');
  read(x);
  Assign(Output,'output.txt');
  k:=1; b[0]:=1;
  repeat
    i := i+1;
    k :=f+k;
    f:=k-f;
    b[i]:=k;
    n[i] := m+1;
    m := m+k
  until m >= x;
  repeat
    Write(x,' ');
    f:=0;
    x := 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 < 1;
         
    x:=n[i-1]+f-1;
    i:=i-1
  until 0 = i
end.

322
Твой ход

[kostan3]

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

322 (эх был бы код на с++ у меня бы были шансы потягаться с тобой)

[Аватар]

Там же BDA и я писал - циклы FOR подправить в #43. BDA даже написал как

[kostan3]

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

Там же BDA и я писал - циклы FOR подправить в #43. BDA даже написал как

я не слепой но то что писал BDA не скработало хотя наверно я не правильно расставил скобки P.S а в каком посте он это писал?

[Poma][a]

var b,n: array[0..40] of Int64;
    x,m,i,k,f: Int64;
begin
  reset(input,'input.txt');
  read(x);
  Assign(Output,'output.txt');
  k:=1; b[0]:=1;
  repeat
    i := i+1;
    k :=f+k;
    f:=k-f;
    b[i]:=k;
    n[i] := m+1;
    m := m+k
  until m >= x;
  repeat
    Write(x,' ');
    f:=0;
    x := 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 < 1;
    i:=i-1;     
    x:=n[i]+f-1
     
  until 0 = i
end.

320

я не слепой но то что писал BDA не скработало хотя наверно я не правильно расставил скобки P.S а в каком посте он это писал?

ага-ага.. зрячий.. в 43 (в посте Аватара это, между прочим, говорилось..)

[kostan3]

#include <fstream>
using namespace std;
int main(){
  fstream s("input.txt"), q("output.txt",2);
  int b[41],n[41],x,m=0,i=0,j,k,f=0,g=1;
  s>>x;
  b[0]=1; n[0]=0;
  while(m<x){
  i++;
  b[i]=f+g;
  f=g;
  g=b[i];
  m+=g;
  n[i]=m-g+1;
}
for(j=i;j>1;j--){
q<<x<<" ";
f=0;
x-=n[j]-1;
while(x>0){
for(k=j;k>1;k--){
if(x>=b[k]){
f+=b[k-1];
x-=b[k];
break;
}
}
}
x=n[j-1]+f-1;
}
}

результат Time limit exceeded 1
//////////////////////////////////////////////////////////////////////////////////

#include <fstream>
using namespace std;
int main(){
  fstream s("input.txt"), q("output.txt",2);
  int b[41],n[41],x,m=0,i=0,j,k,f=0,g=1;
  s>>x;
  b[0]=1; n[0]=0;
  while(m<x){
  i++;
  b[i]=f+g;
  f=g;
  g=b[i];
  m+=g;
  n[i]=m-g+1;
}
for(j=i;j>1;j--){
q<<x<<" ";
f=0;
x-=n[j]-1;
while(x>0){
for(k=j;k>1;k--){
if(x>=b[k]){
f+=b[k-1];
x-=b[k];
break;
}
}
x=n[j-1]+f-1;
}
}
}

результат Time limit exceeded 1
/////////////////////////////////////////////////////////////////////////////

#include <fstream>
using namespace std;
int main(){
  fstream s("input.txt"), q("output.txt",2);
  int b[41],n[41],x,m=0,i=0,j,k,f=0,g=1;
  s>>x;
  b[0]=1; n[0]=0;
  while(m<x){
  i++;
  b[i]=f+g;
  f=g;
  g=b[i];
  m+=g;
  n[i]=m-g+1;
}
for(j=i;j>1;j--){
q<<x<<" ";
f=0;
x-=n[j]-1;
while(x>0){
for(k=j;k>1;k--){
if(x>=b[k]){
f+=b[k-1];
x-=b[k];
break;
}
x=n[j-1]+f-1;
}
}
}
}

результат 1 Wrong answer
Значит чтото не правильного в коде и опять же в циклах

[Аватар]

Охренеть
for(j=i;j>0;j--)
for(k=j;k>0;k--)

[rrrFer]

kostan3
отладчик используй. Хватит надеяться на то, что задачу решат за тебя.