Ннайти число фиобаначи с номером n
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
