Question

Переведите из плюсов на обычный язык паскаль данный код!
#include <iostream>

using namespace std;

int fib(int n) {
if (n <= 2) return 1;
return fib(n - 2) + fib(n - 1);
}

int f(int maxn, int n) {
if (maxn > fib(n)) return f(maxn, n + 1);
if (maxn == fib(n)) return fib(n);
return fib(n - 1);
}

int main() {
int n = 100;
cout « f(n, 1) « endl;
return 0;
}​

Answer 1

Решение представлено во вложении.

Язык: Pascal