В 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
Var
a,b,c:integer;
Begin
Writeln('Введите стороны треугольника: ');
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
if (c>a) and (c>b) and (c=sqrt(sqr(a)+sqr(b))) then Writeln('Прямоугольный') else
if (a>c) and (a>b) and (a=sqrt(sqr(c)+sqr(b))) then Writeln('Прямоугольный') else
if (b>a) and (b>c) and (b=sqrt(sqr(a)+sqr(c))) then Writeln('Прямоугольный') else Writeln('Не прямоугольный');
End.
Блок-схема прикреплена ниже.
Тестовые значения:
Введите стороны треугольника:
a=3
b=4
c=5
Прямоугольный