Дано целое число N (N больше 1). Сформировать и вывести целочисленную последовательность из N чисел Фибоначчи по правилу: первые 2 элемента равны 1, а каждое следующее, начиная с третьего, равно сумме двух предыдущих.
Дано целое число N (N>1). Сформировать и вывести целочисленную последовательность из N чисел Фибоначчи по правилу: первые 2 элемента равны 1, а каждое следующее, начиная с третьего, равно сумме двух предыдущих.
Гость
Ответ(ы) на вопрос:
Гость// Примечание: В задании не сказало создать массив, мы его и не создаем!
program fibonachi;
var n, x1, x2, xs, i:integer;
beginx1:=1;
x2:=1;
write ('Введите число N = ');
readln (n);
write (x1, ' ', x2, ' ');
for i:=3 to n do
begin
xs:=x1+x2;
write (xs, ' ');
x1:=x2;
x2:=xs;
end;
end.
Гостьprogram z;
var a:array[1..1000] of integer; i,n:integer;
begin
write('Введите N (N>1, N<=1000)');
read(n);
a[1]:=1;
a[2]:=1;
write(a[1], ' ', a[2], ' ');
for i:=3 to n do
begin
a[i]:=a[i-2]+a[i-1];
write(a[i], ' ');
end;
end.
Не нашли ответ?
Похожие вопросы