Надо вывести n первых чисел Фибоначчи
10-11 класс
|
begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
Другие вопросы из категории
и вывести наибольшую сумму двух соседних элементов массива, имеющих различную чётность. Гарантируется, что в массиве есть соседние элементы, имеющие различную чётность. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const N=70;
var a: array [1..N] of integer;
i, j, x, y: integer;
begin
for i:=1 to N do
readln(a[i]);
...
end.
монитор фирмы D" равно 2. Найдите количество мониторов фирмы D до покупки .
работать на этом калькуляторе?
изображение на бумаге получается при смешении четырёх цветов (цветовая модель CMYK). Какие цвета используют при этом цвета?
Читайте также
ю следующих рекуррентных соотношений где - целое. Отследить корретность ввода исходных данных.
Числа Фибоначчи : последовательность, каждый следующий элемент которой равен сумме 2-х предыдущих., причем известно, что первый член последовательности f0=0, в второй f1 =1.
ждое следующее, начиная с третьего, равно сумме двух предыдущих.
предыдущих. (1,1,2,3,5,13...).Дано натуральное число n. n>=3. а)Найти k-й член этой последовательности; б)Для заданного n определить верно ли, что сумма первых n-членов последовательности есть четное число. Помогите, нужно составить программу для решения данных задач!
…, в которой каждое последующее число равно сумме двух предыдущих чисел. Количество простых чисел среди первых сорока пяти чисел Фибоначчи составляет …