Вопрос по информатике:
Ннайти число фиобаначи с номером n
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.06.2017 22:54
- Информатика
- remove_red_eye 11156
- thumb_up 51
Ответы и объяснения 2
var
a1,a2, n, i:integer;
begin
a1 := 1;
a2 := 1;
write('n = '); readln(n);
for i := 2 to n - 1 do
begin
a1 := a1 + a2;
a2 := a1 - a2;
end;
writeln(n, ' элемент последовательности Фибоначчи равен ', a1);
end.
- 11.06.2017 14:41
- thumb_up 47
var
n: integer;
function fibonachi(n: integer): integer;
begin
if (n = 1) or (n = 2) then fibonachi := 1
else fibonachi:= fibonachi(n - 1) + fibonachi(n - 2);
end;
begin
read(n);
writeln('F(', n, ') = ', fibonachi(n));
end.
------------------------------------------------------
var
n, i: integer;
a: array [1..3] of longint;
begin
read(n);
a[2] := 1;
a[3] := 1;
for i := 3 to n do
begin
a[1] := a[2];
a[2] := a[3];
a[3] := a[2] + a[1];
end;
writeln('F(', n, ') = ', a[3]);
end.
- 11.06.2017 22:45
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.