Ряд чисел фибоначчи задается следующим образом: первые два числа равны 1 ( f 1 = f 2 = 1 ), а каждое следующее равно сумму двух предыдущих: f i = f i - 1 f i - 2 . напишите программу, которая вводит натуральное число n и заполняет массив из n элементов первыми n числами фибоначчи. входные данные входная строка содержит размер массива n . гарантируется, что 0 < n ≤ 40 . выходные данные программа должна вывести содержимое массива: первые n чисел фибоначчи. примеры входные данные 5 выходные данные 1 1 2 3 5

для того что было понятнее обозначим берег на котором солдаты "1", а второй берег "2".сначала через реку переплывают вдое мальчиков на берег 2, один остается другой возращается обратно на берег 1, переплывает солдат и отдает лодку мальчику на берегу 2, который в свою очередь переплывает на берег 1, забирает брата и переплывают вдвоем на берег 2. и данный алгоритм повторяется пока все солдаты не переправятся.

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.