Среди чисел последовательности 1 ,2,3,5,8,13..(каждый следующий член последовательности равен сумме двух предыдущих ) найдите количество чисел до первого шестизначного. помогите .Паскаль авс
Среди чисел последовательности 1 ,2,3,5,8,13..(каждый следующий член последовательности равен сумме двух предыдущих ) найдите количество чисел до первого шестизначного. помогите .Паскаль авс
Гость
Ответ(ы) на вопрос:
Гостьvar
f, f1, f2: longint;
n: integer;
begin
f2 := 1;
f1 := 2;
n := 2;
repeat
f := f1 + f2;
n := n + 1;
writeln(n,' - ',f);
f2 := f1;
f1 := f;
until f >= 1000000;
writeln(n - 1);
end.
Не нашли ответ?
Похожие вопросы