Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
stasya10687
21.07.2020 04:55 •
Информатика
Function f(n: integer): integer; function g(n: integer): integer; определены с операционной семантики равенствами: f(0)=1, g(0)=2, f(n)=g(n-1), g(n)=f(n-1) + g(n-1). найти значения f(3) и g(3).
Показать ответ
Ответ:
Artem574189
02.07.2020 16:58
Program Project1;
function G(n: Integer): Integer;
begin
if n = 0 then
Result:=2
else
Result:=F(n - 1) + G(n - 1);
end;
function F(n: Integer): Integer;
begin
if n = 0 then
Result:=1
else
Result:=G(n - 1);
end;
begin
WriteLn('G(3) = ', G(3);
WriteLn('F(3) = ', F(3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sashakO5класс
18.12.2020 13:08
СТЕПЕНЬ (число;степень) - а) вычисляет сумму всех чисел, указанных в качестве аргументов. в) заданное число возводится в указанную степень. @[email protected]...
Remka228
20.06.2022 02:50
Нужна с информатикой, обязательно с объяснением. 1) Заполнить массив A из 10 элементов типа integer, A[i] 100. Найти сумму нечетных элементов массива. 2) Заполнить массив...
Hellwood12
11.12.2020 22:32
Сколько бит содержит сообщение содержащие 0,25 кбайт...
ддииммоонн
28.09.2020 21:07
Add your own ideas to the table in exercise 1.3 in pairs, do the role-play. follow the instructions.when you have finished, swap roles.student a: imagine you re going...
Fox1114
11.01.2021 12:08
162. замените полные прилагательные краткими по образцу....
OlaCoch
04.06.2020 23:07
Надо и 1 и 2 сделайте хотя бы 1, надо ❤️...
Айдан88
09.02.2022 10:47
Жанр произведения «леди макбет мценского уезда»? назовите основное, по мнению н.с.лескова, свойства человека. а) легкомыслие б) лень в) свободолюбие г) подвижничество...
Artëm1646
07.09.2022 19:14
157а. прочитайте высказывания древне-римских поэтов горация и вергилия.горацийвергилийзапишите их, заменив предложения спрямой речью предложениями с вводнымиконструкциями...
Sergey2003456
06.07.2020 16:30
Выпиши из художественной 2 простых предложения с авторами...
Superniolay
24.06.2022 21:05
Баскетболіст закидає в середньому 8 штрафних з 10. знайти ймовірність того, що він закине 38 штрафних з 50....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function G(n: Integer): Integer;
begin
if n = 0 then
Result:=2
else
Result:=F(n - 1) + G(n - 1);
end;
function F(n: Integer): Integer;
begin
if n = 0 then
Result:=1
else
Result:=G(n - 1);
end;
begin
WriteLn('G(3) = ', G(3);
WriteLn('F(3) = ', F(3);
end.