Посреди чисел последовательности 1 ,2,3,5,8,13..(каждый последующий член последовательности равен сумме 2-ух

Среди чисел последовательности 1 ,2,3,5,8,13..(каждый последующий член последовательности равен сумме 2-ух предыдущих ) найдите количество чисел до первого 6-значного Pascal abc

Задать свой вопрос
1 ответ

program numb;
var n1,n2,n3,k:integer;
begin
n1:= 1;
n2:= 2;
k:= 2;
repeat
n3:= n1 + n2;
n1:= n2; n2:= n3;
k:= k + 1
until n3 gt; 999999;
writeln(Количество чисел до первого шестизначного: , k - 1);
writeln(Заключительное число перед первым шестизначным: , n1)
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт