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

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

int main() {
	srand((int)time(0));
	int N;
	N = rand() % 30 + 1;
	//N = 30;
	double X = (rand() % 200 - 100) / 100.0;
	//X = 0.1;
	
	double p = X/2.0;
	double s = 1 + X/2.0;
	double k = 2.0;
	for(int i = 2; i <= N; i++) {
		k += 2;
		p *= (-1)*(k-3)/k*X;
		s += p;
		cout << i << " : "<< p << " : "<< s << endl;
	}
	cout << "Number N: " << N << endl;
	cout << "Number X: " << X << endl;
	cout << "Number X+1: " << X+1 << endl;
	cout << "Result: " << s << endl;
	cout << "sqrt(" << X+1 <<") = " << sqrt(X+1) << endl;
	
	return 0;
}

import math
X = -0.9
N = 100
print('X = ', X)
print('N = ', N)

p = X/2
S = 1 + X/2
k = 2
for i in range(2,N+1):
    k += 2
    p *= (-1)*(k-3)/k * X
    S += p
    print(i," : ",k," : ",p," : ",S)

print("Result:")
print(S)
print("sqrt(1+x):")
print(math.sqrt(1+X))
									

program For28;
var
  X,Rez,pow,TempRez1,TempRez2:Real;
  N, i :Integer;
begin
  Write('Введите X: ');
  Readln(X);
  Write('Введите N: ');
  Readln(N);
  Rez:=1;
  pow:=1;
  TempRez1:=1;
  TempRez2:=1;
  For i:=1  to N do
   begin
    TempRez1:=TempRez1*(2*i-3);
    TempRez2:=TempRez2*(2*i);
    pow:=pow*X*(-1);
    Rez:=Rez+TempRez1*Pow/temprez2;
   end;
  Writeln(Rez);
end.