Напишите программу, вычисляющую и выводящую n первых членов последовательности Фибоначчи. Нужна программа в паскале
Ответы
Ответ дал:
0
1) В старом стиле Паскаля (тут используется тип uint64, а он достаточен только до n=93):
var
n, i: Integer;
a, b, c: uint64;
begin
Writeln('Печать n первых членов последовательности Фибоначчи');
Write('Введите n: ');
Read(n);
a := 1;
b := 1;
for i := 1 to n do
begin
writeln('n=', i, ' ', a);
c := a + b;
a := b;
b := c;
end;
end.
2) Используя возможности PascalABC.NET (тут уже есть тип BigInteger -неограниченное цело число):
var a, b: BigInteger;
begin
Writeln('Печать n первых членов последовательности Фибоначчи');
var n := ReadInteger('Введите n:');
(a, b) := (1, 1);
for var i := 1 to n do
begin
writeln('n=', i, ' ', a);
(a, b) := (b, a + b);
end;
end.
Приложения:
![](https://st.uroker.com/files/faf/faf8c1b3f0b7b1d85e3ed60132e27d8b.png)
![](https://st.uroker.com/files/7d6/7d6bda631c96afc19bd46b91846671d6.png)
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад