Question

Напишите программу вычисляющую и выводящую n первых членов последовательности Фибоначчи. Нужна в Паскале. Помогите, пожалуйста, нужно срочно.

Answer 1

алг

нач

цел а,б,в,н,с

вывод "Печать n первых членов последовательности Фибоначчи"

вывод нс, "Введите n: "

ввод н

а := 1

б := 1

нц для с от 1 до н

вывод а, нс

в := а + б

а := б

б := в

кц

кон

Answer 2

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

pascalCopy code
program FibonacciSequence;

var
  n, i: Integer;
  fib1, fib2, fib: Integer;

begin
  Write('Введите количество членов последовательности: ');
  ReadLn(n);
  
  if n <= 0 then
  begin
    WriteLn('Количество членов должно быть положительным числом.');
    Exit;
  end;
  
  fib1 := 0;
  fib2 := 1;
  
  WriteLn('Первые ', n, ' членов последовательности Фибоначчи:');
  WriteLn(fib1);
  WriteLn(fib2);
  
  for i := 3 to n do
  begin
    fib := fib1 + fib2;
    WriteLn(fib);
    fib1 := fib2;
    fib2 := fib;
  end;
end.

Программа сначала запрашивает у пользователя количество членов последовательности, а затем с помощью цикла for вычисляет и выводит соответствующие значения. Первые два члена (fib1 и fib2) инициализируются значениями 0 и 1 соответственно, а затем в цикле каждый новый член вычисляется как сумма двух предыдущих членов (fib1 и fib2).