Переведите из плюсов на обычный язык паскаль данный код! #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;
}
Решение представлено во вложении.
Язык: Pascal