В n будем хранить количество чисел, которые ещё нужно вывести. a и b - предыдущее и текущее числа Фибоначчи. По определению, следующее число Фибоначчи равно сумме двух предыдущих, так что новое значение b будет a + b. Чтобы не заводить новую временную переменную, новое значение a можно будет найти, вычитая из нового b старое a, получится (a + b) - a = b.
Код процедуры:
procedure print_fib(n: integer);
var a, b, t: integer;
begin
a := 0;
b := 1;
while n > 0 do
begin
write(b, ' ');
b := a + b;
a := b - a;
n := n - 1;
end;
end;
Пример основной программы:
begin
print_fib(10)
end.
Вывод:
1 1 2 3 5 8 13 21 34 55
c = 15 c = 2.00 c = 25 c = 9
c = 3 c = 1 c = 100 100
'qm' c = '' c = school2 error
Объяснение:
+ сложение(если строку str складывают с другой они просто скрепляются
// деление с выделением целой части
/ обычное деление чисел (происходит в формате float) даже если ответ целое число мы показывает десятые и сотые числа
% деление с выделением остатка
* умножение (если строка str умножается на целое число, то эта строка пишется несколько раз БЕЗ ПРОБЕЛА
** возведение в степень
max функция которая ищет максимум
строку на строку перемножать нельзя программа ложиться и выдаёт ошибку