Написать программу в Паскале. Последовательность фибоначчи образуется так:первый и второй члены равны 1,каждый следующий равен сумме двухпредыдущих(1,1,2,3,5,8,13,...)найти числа последовательности фибоначчи сумма которых меньше пятизначного числа n.
Я бы сделал так: uses crt; const b=99999; var i,n:integer; mas:array [1..b] of integer; begin mas[1]:=1; mas[2]:=1; for i:=3 to b do mas:=mas[i-1]+mas[i-2]; writeln('vvedite iskomoe 4islo'); read(n); for i:=1 to b do if mas+mas[i-1]<=n then write(mas,' '); read; end. тут массив ограничен максимальным пятизначным числом 99999(строка const n=.....) так что если будет надо исправишь))) только это чисел то таких будет чертовски много))))
