Фильтры позволяют отбирать записи, которые удовлетворяют заданным условиям. Условия отбора записей создаются с использованием операторов сравнения (=, >, < и т. д.).Простой фильтр содержит условие отбора записей только для\ одного поля. Сложный фильтр содержит несколько условий для различных полей.
Запросы позволяют отобрать те записи, которые удовлетворяют заданным условиям. Запросы, как и фильтры, бывают простые и сложные. Простой запрос содержит одно условие, а сложный запрос содержит несколько условий для различных полей.
Var n,fibn:real; i:integer; begin readln(n); if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0') else begin i:=0; while fibn<n do begin fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5); inc(i); end; writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1); end; end.
//В лоб
Var sum,n,buf,fib0,fib1:integer;
function fibb(fib0,fib1:integer):integer; begin result:=fib0+fib1; end;
begin fib0:=0; fib1:=1; readln(n); if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0') else begin if fibb(fib0,fib1)>=n then sum:=0 else begin while fibb(fib0,fib1)<n do begin buf:=fib1; fib1:=fibb(fib0,fib1); fib0:=buf; end; sum:=fibb(fib1,fibb(fib0,fib1))-1; end; writeln(sum); end; end.
1Тема проекта которую я выбрал: програмист
2почему выбрал эту тему: Потому что прогромисты будет очень нужны в будущем
3 Что нового узнал чему научился: Что програмисты работают в гаджетах и они умеют делать игры и тд
4 Как нашёл нужную информацию: Я узнал новую информацию от родителей
5 Как сохранил информацию: Я сохранил информацию в папке и всё
6: Каким оброзом переносили лучшее: В созданиех проектах
7 Что удалось выполнить лучшее: Удалось лучшее выполнить это создание проекта
8 Что не смогли сделать в проекте: Нам не удалось создать приложение
9 Каковы впечатление отвыполнение проекта: Не было впечатление Потому что это было не сложна
Объяснение:
Надеюсь памог друг до свидание если отправь+