В 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
#include <stdio.h>
int main()
{FILE *inp,*outp,*para;
int n=1,i;
char c,ckar;
inp=fopen("input.txt","rt");
para=fopen("input.txt","rt");
outp=fopen("output.txt","wt");
c=fgetc(inp);
while (c!=EOF)
{if (c=='\n')
{if(n>6) for(i=0;i<n;i++)
{ckar=fgetc(para);
fputc(ckar,outp);}
else
for(i=0;i<n;i++)
ckar=fgetc(para);
n=0;}
c=fgetc(inp);
n++;}
if(n>6)
for(i=0;i<n-1;i++)
{ckar=fgetc(para);
fputc(ckar,outp);}
else
for(i=0;i<n-1;i++)
ckar=fgetc(para);
return 0;}