function fibonacchi(x:integer):integer;
// функция возвращает порядковый номер введённого числа
// ряда Фибоначчи. Если число не является элементом
// из данного ряда, то функция возвращает -1
var counter:integer = 2;
s1,s2,s3:integer;
begin
s1 := 0;
s2 := 1;
s3 := 0;
if x = 0 then fibonacchi:=1
else if x = 1 then fibonacchi:=2
else begin
while s3 < x do begin
s3 := s1 + s2;
s1 := s2;
s2 := s3;
inc(counter);
end;
if s3 = x then fibonacchi:=counter
else fibonacchi:=-1;
write(fibonacchi(13));
end.
Відповідь:
Профориентация
Школьникам
Взрослым
Студентам
Тесты
Список профессиий
FAQ
Статьи
Книги
Задать вопрос
ПрофГид
Профессии
Информационные технологии (IT)
Показаны записи 1-20 из 70.
Аналитик
Компьютерный лингвист
Инженер-программист
Архитектор интеллектуальных систем управления беспилотного транспорта
UI-дизайнер
UX-аналитик
UX-дизайнер
Художник компьютерной графики
Лингвоэксперт
Intelligent Systems Developer
Агроинформатик, агрокибернетик
Quant developer
Data Mining Specialist
BI разработчик (BI архитектор)
Программист Kotlin
Программист JavaScript
Программист C++
Биоинформатик
Архитектор информационных систем
Сценарист компьютерных игр
Пояснення:
function fibonacchi(x:integer):integer;
// функция возвращает порядковый номер введённого числа
// ряда Фибоначчи. Если число не является элементом
// из данного ряда, то функция возвращает -1
var counter:integer = 2;
s1,s2,s3:integer;
begin
s1 := 0;
s2 := 1;
s3 := 0;
if x = 0 then fibonacchi:=1
else if x = 1 then fibonacchi:=2
else begin
while s3 < x do begin
s3 := s1 + s2;
s1 := s2;
s2 := s3;
inc(counter);
end;
if s3 = x then fibonacchi:=counter
else fibonacchi:=-1;
end;
end;
begin
write(fibonacchi(13));
end.
Відповідь:
Профориентация
Школьникам
Взрослым
Студентам
Тесты
Список профессиий
FAQ
Статьи
Книги
Задать вопрос
ПрофГид
Профессии
Информационные технологии (IT)
Показаны записи 1-20 из 70.
Аналитик
Компьютерный лингвист
Инженер-программист
Архитектор интеллектуальных систем управления беспилотного транспорта
UI-дизайнер
UX-аналитик
UX-дизайнер
Художник компьютерной графики
Лингвоэксперт
Intelligent Systems Developer
Агроинформатик, агрокибернетик
Quant developer
Data Mining Specialist
BI разработчик (BI архитектор)
Программист Kotlin
Программист JavaScript
Программист C++
Биоинформатик
Архитектор информационных систем
Сценарист компьютерных игр
Пояснення: