В 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
Choosing a future profession is a very important step in everyone's life. Some school leavers hesitate for a long time, as it is difficult for them to decide, while others, on the contrary, make a firm decision earlier. In order to become what you want, you must first learn and get an education. If you like your future profession very much, then it will be interesting and not difficult to study.
As for me, I want to become a programmer. This profession attracted me when I was in elementary school. Then we started studying computer science, which became my favorite subject. I always listen very carefully to the teacher. I am interested in absolutely all topics on this subject, so I often ask a lot of additional questions in the lessons. At home, I have many different books: about the structure of the computer, about working with different programs, about the basics of programming, about breakdowns, about viruses, and others. In addition, I usually read additional literature on computer science in our school library or search for information that interests me on the Internet.
Объяснение:
f: text;
s: string;
n, k, i, j: integer;
begin
readln(s);
readln(n, k);
assign(f, s);
rewrite(f);
s := '';
for i := 1 to k do
s := s + '*';
for i := 1 to n do
writeln(f, s);
close(f);
end.