Написать программу в Паскале. Последовательность фибоначчи образуется так:первый...

July 2022 2 8 Report

Написать программу в Паскале.

Последовательность фибоначчи образуется так:первый и второй члены равны 1,каждый следующий равен сумме двух предыдущих(1,1,2,3,5,8,13,...)найти числа последовательности фибоначчи сумма которых меньше пятизначного числа n.

karimPhoenix Var top, sum, An, An1 :integer;
Begin
read(top);
sum:=2;
An:=1;
An1:=1;
repeat
    An := An + An1;
    An1 := An - An1;
    sum := sum + An;
    write(An:6)
until sum >= top
End.

1 votes Thanks 4

archery

Verified answer

Я бы сделал так:
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[i]:=mas[i-1]+mas[i-2];
writeln('vvedite iskomoe 4islo');
read(n);
for i:=1 to b do
if mas[i]+mas[i-1]<=n then
write(mas[i],' ');
read;
end.
тут массив ограничен максимальным пятизначным числом 99999(строка const n=.....) так что если будет надо исправишь))) только это чисел то таких будет чертовски много))))

3 votes Thanks 0

archery Если помогло, то выбери мое решение лучшим плиз

karimPhoenix вполне красивый вариант))) даже меньше мороки))) честно, я бы так не додумался сделать)))

Answers & Comments

Verified answer

sozdat odnomernyj massiv iz elementov tipa double opredelitt maksimalno ddo

v paskale vychislite summu pervyh 30 celyh chiselkotorye delyatsya na 5 bez ostatka

s ispolzovaniem cikla while do sostavit programmukotoraya rasschityvaet vyr

najdite summu sin1sin2m i chislo slagaemyh do pervogo otricatelnogo s

рекомендуемые вопросы

Helpful Links

Helpful Social