Блог учителя Информатики

Решение задачи ExamBegin22


Условие задачи:

На вход подается целое число N (> 2). Сформировать и вывести целочисленный массив размера N, содержащий N первых элементов последовательности чисел Фибоначчи FK:

F1 = 1,        F2 = 1,        FK = FK−2 + FK−1,    K = 3, 4, … .

Все числа выводить в одной строке, для каждого числа отводить 4 экранные позиции.


uses PT4Exam;

const
  R = 100;

var
  m: array[1..R] of integer;
  a, i: integer;

begin
  Task('ExamBegin22');
  Read(a);
  m[1] := 1; m[2] := 1;
  for i := 3 to a do
    m[i] := m[i - 1] + m[i - 2];
  for i := 1 to a do
    Write(m[i]:4);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий