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

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

int main() {
	srand((int)time(0));
	int N;
	N = rand() % 100;
	
	double S = 0, x;
	for(float i = 1; i <= N; i++) {
		x = 1/i;
		S += x;
		cout << i <<" : " << x <<" : " << S << endl;
	}
	cout << "Number N: " << N << endl;
	cout << "Sum = " << S << endl;
	return 0;
}

import random

N = random.randrange(10)
print('N = ', N)

S = 0.0
for i in range(N):
    S += 1/(i+1)
    print(i+1," : ",1/(i+1)," : ",S)
print("Sum = ",S)
									

program For10;
var
  N,i:Integer;
  Rez:Real;
begin
  Write('Введите N: ');
  Readln(N);
  rez:=0;
  For i:=1  to N do Rez:=Rez+1/i;
  Writeln(Rez);
end.