Ессвязицу под вопросом не понял.
попробуйте так: y = round(x * 1.618)
<span>если же надо элемент последовательного (по инкременту 1) числового ряда в десятичной, привести к элементу того же индекса в последовательности фибо - надо вычислять рекурсивно (индекс элемента фибо-последовательности). </span>
72244.697 в десятичной системе
const
N = 3;
var
a: array[1..N] of integer;
i, max: integer;
begin
max := 0;
writeln('Введите результаты трех спортсменов');
for i := 1 to N do readln(a[i]);
for i := 1 to N do
begin
if a[i] > max then
max := a[i];
end;
writeln;
writeln('Лучший результат среди трех спортсменов - ', max);
end.
Объяснение:
^ не ставится у меня, но выполняет свои действия, у себя его ставьте!
Security 360 - Антивирусная программа для ПК