Помогите написать программу в паскале..Посреди чисел последовательности 1,2,3,4,5,8,13

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

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

Заблаговременно благодарю за всякую помощь

Задать свой вопрос
Ульяна Фтомова
в вашей последовательности 1,2,3,4,5,8,13 ... каждый последующий член последовательности НЕ равен сумме 2-ух прошлых!!!
1 ответ

Var i, x1, x2, x3,m, y:integer;

Begin

X1:=1;x2:=2;i:=0;m:=0;

While ilt;gt;6 do begin

X3:=x1+x2;y:=x3;m:=m+1;i:=0;

While x3gt;0 do begin

I:=i+1;

X3:=x3 div 10;

End;

X1:=x2;x2:=y;write(' ', y) ;

End;

Write('1-ое шестизначное число находиться на ',m,' месте') ;

End.

Вроде как-то так

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


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

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

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

Войти на сайт