Question

Программа на паскале для вычисления первых n чисел Фибоначчи

Answer 1

Var
  n, a, b, c : integer;
begin
  a := 1;
  b := 1;
  write('n? ');
  readln(n);
  write(a,' ',b,' ');
  for var i:=3 to n do
  begin
    c := a + b;
    write(c,' ');
    a := b;
    b := c;
  end;
end.

Answer 2

Program hhh54;
var i,n,x:longint;
  a: array [1..100000] of longint;
begin
  read (n);
  a[1]:=1;
  a[2]:=1;
  for i:= 3 to n do
    begin
      a[i]:=a[i-1]+a[i-2];
      write (a[i]);
    end;
end.

Answer 3

Конечно, вот пример программы на языке Pascal для вычисления первых n чисел Фибоначчи:

pascalCopy code
program FibonacciNumbers;

var
  n, i: Integer;
  fib1, fib2, nextFib: Int64;

begin
  Write('Введите количество чисел Фибоначчи, которое вы хотите вычислить: ');
  ReadLn(n);

  fib1 := 0; // Первое число Фибоначчи
  fib2 := 1; // Второе число Фибоначчи

  WriteLn('Первые ', n, ' чисел Фибоначчи:');
  WriteLn(fib1); // Вывод первого числа

  if n > 1 then
    WriteLn(fib2); // Вывод второго числа

  for i := 3 to n do
  begin
    nextFib := fib1 + fib2; // Вычисление следующего числа Фибоначчи
    WriteLn(nextFib); // Вывод следующего числа
    fib1 := fib2;
    fib2 := nextFib;
  end;
end.

Программа запрашивает у пользователя количество чисел Фибоначчи (n), которые необходимо вычислить, и затем использует цикл для вычисления и вывода первых n чисел Фибоначчи.