Question

Написать программу , которая определяет количество четерехзначных чисел в ряди Фибоначчи.

Answer 1

===== PascalANC.NET =====

begin

 SeqWhile(1, 1, (a, b) -> a + b, p -> p < 10000)

   .Count(p -> p.InRange(1000, 9999))

   .Println

end.