В 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
1)20m+40m=240
60m=240
m=240: 60
m=4
ответ: m=4
2)800k: 200=800
800k=800*200
800k=160000
k=160000: 800
k=200
ответ: k=200
3)(8x+2x)*8: 2=160
10х*8: 2=160
10х*8=160*2
10х*8=320
10х=320: 8
10х=40
х=40: 10
х=4
ответ: х=4
4)10+30t=20t+100
не знаю
