Pagini recente » Cod sursa (job #863876) | Cod sursa (job #1292263) | Cod sursa (job #455814) | Cod sursa (job #2077772) | Cod sursa (job #498725)
Cod sursa(job #498725)
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.