Решение задачи For 31

#include <bits/stdc++.h>
using namespace std;

int main() {
	srand((int)time(0));
	int N = rand() % 30 + 1;
	//N = 30;
	cout << "N = " << N << endl;
	
	double A0 = 2.0;
	double A1;
	
	cout.precision(20);
	for(int i = 1; i <= N; i++) {
		A1 = 2 + 1/A0;
		cout << i << " : " << A1 << endl;
		A0 = A1;
	}
	
	return 0;
}

for N in range(1,22,5):
    print("N = ",N)
    A0 = 2
    for k in range(1,N+1):
        A1 = 2 + 1/A0
        print(k," : ",A1)
        A0 = A1
									

program For31;  
var
  Ai :Real;
  N, i :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  Writeln('Значения функции:');
  Writeln('A(0)=2');
  Ai:=2;
  For i:=1  to N do
  begin
   Writeln('A(',i,')=',2+1/Ai);
   Ai:=2+1/Ai;
  end;
end.