Cod sursa(job #498725)

Utilizator genialuflorin teodoreanu genialu Data 5 noiembrie 2010 20:30:28
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.61 kb
program A_micul;
    var
    a,b,c:int64;
    f,g:text;
    nr,i:byte;
    ok:boolean;
begin
 assign(f,'kfib.in'); reset(f);
 assign(g,'kfib.out'); rewrite(g);
   read(f,nr);
    a:=1;
    b:=1;
    c:=2;
    ok:=true;
    for i:=3 to nr do
       begin
        c:=a+b;
        a:=b;
        b:=c;

      if c=nr then
                 ok:=false;
       end;
    if nr<>2 then
    begin
  if ok then
    write(g,'NU')
  else
    write(g,'DA');
    writeln(g);
    write(g,c);
    end
  else
  begin
    Write(g,'DA');
    writeln(g);
    write(g,1);
  end;
  close(f);
  close(g);
end.