Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Stellright
27.12.2021 10:14 •
Информатика
Pascal: числа фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. определить член фибоначчи, который больше заданного числа х.
Показать ответ
Ответ:
холера663
31.08.2020 12:50
Var a1,a2,an,x:integer;
begin
write('x = ');
readln(x);
a1:=1; a2:=1; an:=1;
while an<=x do
begin
an:=a1+a2;
a1:=a2;
a2:=an;
end;
writeln('an = ',an);
end.
Пример:
x = 25
an = 34
0,0
(0 оценок)
Ответ:
ske4
31.08.2020 12:50
Function Fib(n:integer):integer;
begin
if n<3 then Fib:=1
else Fib:=Fib(n-1)+Fib(n-2)
end;
var
i,f,x:integer;
begin
Write('X='); Read(x);
i:=1;
repeat
f:=Fib(i); Inc(i)
until f>x;
Writeln('Число Фибоначчи, большее введенного: ',f)
end.
Пример
X=27
Число Фибоначчи, большее введенного: 34
0,0
(0 оценок)
Популярные вопросы: Информатика
Yuliya12222222222
01.04.2020 14:29
Определите сколько символов в сообщении, если его объём составляет 600 бит, а вес одного символа равен 6 битам? ОЧЕНЬ...
schvarzengold100
04.11.2021 22:46
Информатика 1) 5 мбайт = кбайт 2) 6000 байт = мбайт 3) 4 гбайта = байт 4) 2000 байтов = гбайт 5) 0,5 тбайт = бит переведите,...
Vova50915091
04.12.2021 11:03
Статья, набранная на компьютере содержит 16 страниц, на каждой странице 32 строки, в каждой строке 30 символоа. определите информационнчй объем статьи в кодировке кои8....
maitrewiva
12.08.2022 23:49
Твір роздум моя участь в житті суспільства:можливість і реальність....
m21pekoy8bso
23.05.2023 11:29
Из данных слов выписать попарно слова с чередованиями согласных в корне (белуга — белужий г//ж) Блеск, заяц, зачесть, заявить, косица изобрести, изнемочь, изобразить, медвежонок,...
dabby25
03.03.2021 01:52
Дополните приведенный код, используя индексатор, так чтобы он вывел 17-ый элемент списка primes. primes = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59,...
7575757575
03.11.2020 23:04
чи всі випускники присутні на зустрічі хто відсутній із якої причини у вірші 19 жовтня 1825 року ...
bakinka005
26.01.2021 16:20
Запишіть словосполучення, у яких відносні чи присвійні прикметники мають значення якісних. Гаряче серце, холодна вода, волошкове воле, пшеничне волосся, малинова сукня,...
Leondjdkdbejxncus
04.09.2022 10:01
Задание 1 1. Рассмотрите рисунок. Определите, какими цифрами на рисунке обозначены железы внутренней секреции, а какими железы смешанной секреции. (рисунок) А) Железы внутренней...
andriyana13
19.05.2020 13:40
Найдите координаты точки пересечения прямых 4х+у=9 и 3х+у=12 можно решение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('x = ');
readln(x);
a1:=1; a2:=1; an:=1;
while an<=x do
begin
an:=a1+a2;
a1:=a2;
a2:=an;
end;
writeln('an = ',an);
end.
Пример:
x = 25
an = 34
begin
if n<3 then Fib:=1
else Fib:=Fib(n-1)+Fib(n-2)
end;
var
i,f,x:integer;
begin
Write('X='); Read(x);
i:=1;
repeat
f:=Fib(i); Inc(i)
until f>x;
Writeln('Число Фибоначчи, большее введенного: ',f)
end.
Пример
X=27
Число Фибоначчи, большее введенного: 34