From df9a0d140a7b7edef66f95aa13b5bb4488147f68 Mon Sep 17 00:00:00 2001 From: Raphael McSinyx Date: Sat, 11 Feb 2017 11:37:48 +0700 Subject: Fast and furiously add others/volume1 --- others/volume1/002.pas | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 others/volume1/002.pas (limited to 'others/volume1/002.pas') diff --git a/others/volume1/002.pas b/others/volume1/002.pas new file mode 100644 index 0000000..7732052 --- /dev/null +++ b/others/volume1/002.pas @@ -0,0 +1,21 @@ +uses fibonacci; + +var + m: int64; + i: byte; + +begin + readln(m); + if m <= 2 then + begin + writeln('1 1'); + exit + end; + + for i := 3 to 88 do + if fibonacci93[i] > m then + begin + writeln(i - 1, ' ', fibonacci93[i - 1]); + exit + end +end. -- cgit 1.4.1