найти н-ую пцифру в последовательности фиббоначи в паскале

[halk]

что то сложновато пишете это же можно проще я не знаю тока как последовательность вывести из нного члена говорят что нужно умножать на 10 ну чтоб число получилось 11235813..... а там уж убирать ненужные цифры с mod i div


var
a,b,c:LongInt;
i:integer;
n: integer;
keypressed.
begin
writeln('vvedite N');
readln(n);
a:=1;
b:=1;
for i:=2 to n do
begin
c:=b;
b:=a+c;
a:=c;
end;
writeln('',c:0);

readln;

end.


а как получить число в котором цифры равны последовательности фиббоначи из ?

[halk]

нужно чтоб сама последовательность тоже на экран выводилась до нного числа

[Serge_Bliznykov]

И это, как я понимаю, вместо спасибо...

что то сложновато пишете это же можно проще я не знаю тока как

ну,ну... дерзайте! Желаю удачи! Как напишете проще, не забудьте опубликовать своё решение...
А вообще-то, проще же Вам написала ОДИНОЧЕСТВО В СЕТИ - смотри на предыдущей странице пост #7 - только добавьте ввод N, вызов написанной ею процедуры и печать результата.. это три строчки кода! правда, в этом решении используются строки..

Я повторю, у меня такое сложное решение получается из-за того, что нельзя использовать строки!

p.s. не забывайте код заключать в теги [СODE] (кнопочка #)

[halk]

спасибо конечно но если препод увидит твое решение то поймет что не я решал и задача дана в теме циклы и это тока начало изучения паскаль после условного оператора ! понимаешь поэтому решение должно быть соответствующим. Я понимаю что вы программисты профи но нужно решение как новичка

[Serge_Bliznykov]

halk, тогда бери решение из пост #7

[halk]

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

[halk]

поможите пожалуйста

[halk]

т е программа должна быть похожа что ее написал новичок в аскале без особых еще навыков ежели какие варианты вы мне предлагаете

[halk]

Сообщение от Serge_Bliznykov

halk, тогда бери решение из пост #7

помоги пожалуйста я думаю ты догадываешься как ее сделать как мне нужно . и как я примерно описал как она должна быть выполнена на взгляд препода помоги!!!! очень прошу

[halk]

Сообщение от Lime

Вызывай функцию получай ответ.

ПС : - полезная кнопка

мне нужно чтоб прога находила цифру нную а не число ! есть разница между седьмое число 13 , а цифра равна только 1. восьмое число 21 а цифра - 3. простите за мою дерзость но предложеннная вами программу забраковал препод т к она написана уверенным пользователем.с использованием операторов которые мы еще не проходили. помогите. неужели никто не откликнется?