program o; uses crt; var f:array[1..44] of longint; i,n,t,j:longint; begin clrscr; f[1]:=1; f[2]:=2; i:=2; while f[i]<100000000 do begin i:=i+1; f[i]:=f[i-1]+f[i-2]; end; readln(n); i:=0; t:=0; while tn do begin j:=t-n; for i:=1 to 44 do if f[i+1]>j then break; t:=t-f[i]; f[i]:=0; end; for i:=1 to 44 do if f[i]>0 then write(f[i]:5); readln; end.
Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!
program o;
Trả lờiXóauses crt;
var f:array[1..44] of longint;
i,n,t,j:longint;
begin
clrscr;
f[1]:=1; f[2]:=2; i:=2;
while f[i]<100000000 do
begin
i:=i+1;
f[i]:=f[i-1]+f[i-2];
end;
readln(n);
i:=0; t:=0;
while tn do
begin
j:=t-n;
for i:=1 to 44 do
if f[i+1]>j then break;
t:=t-f[i];
f[i]:=0;
end;
for i:=1 to 44 do
if f[i]>0 then write(f[i]:5);
readln;
end.