Ответы
Ответ дал:
0
===== PascalANC.NET =====
begin
SeqWhile(1, 1, (a, b) -> a + b, p -> p < 10000)
.Count(p -> p.InRange(1000, 9999))
.Println
end.
Приложения:

Вас заинтересует
1 год назад
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
https://znanija.com/task/33609075 , буду очень благодарна! Оба на 100 баллов.