[an error occurred while processing this directive]
Listing CONVERS.PAS
{$N+}
Program Conversie_Zecimal_Fibonacci;
var n,fn,fn_1,f:comp;
Begin
Write('Introduceti un numar natural in baza 10');
Readln(n);
{ determina doi termeni consecutivi din sirul }
{ Fibonacci, mai mari decat n }
fn:=1; fn_1:=1;
repeat
f:=fn_1+fn;
fn_1:=fn;
fn:=f;
until fn_1>n;
{ afiseaza pe ecran reprezentarea numarului x }
{ in sistemul de numeratie Fibonacci }
Write('Numarul ',n:10:0,' in reprezentarea
Fibonacci este ');
if n=0
then Write(0)
else
while fn_1>1 do
begin
f:=fn-fn_1;
fn:=fn_1;
fn_1:=f;
if f>n
then Write(0)
else
begin
Write(1);
n:=n-f
end
end;
Writeln;
Readln
End.