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

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

int main() {
	const double PI = 3.141592653589793;
	srand((int)time(0));
	int N;
	N = rand() % 30 + 1;
	N = 30;
	float X = (rand() % 16 - 8) * PI/4;
	//X = 1.0;
	
	double p = X, s = X;
	int k = 0;
	for(int i = 1; i <= N; i++) {
		k += 2;
		p *= (-1)*X*X/(k*(k+1));
		s += p;
		cout << i << " : "<< k << " : "<< p;
		cout << " : "<< s << endl;
	}
	cout << "Number N: " << N << endl;
	cout << "Number X: " << X << endl;
	cout << "Result: " << s << endl;
	cout << "sin(" << X <<") = " << sin(X) << endl;
	
	return 0;
}

import math
X = math.pi/4
N = 10
print('X = ', X)
print('N = ', N)

p = X
S = X
k = 0
for i in range(1,N+1):
    k += 2
    p *= (-1) * X * X / (k * (k + 1))
    S += p
    print(i," : ", k," : ", k+1," : ", p," : ", S)
print("Result:")
print(S)
print("sin:")
print(math.sin(X))
									

program For24;
var
  X,Rez,factorial,pow:Real;
  N, i :Integer;
begin
  Write('Введите X: ');
  Readln(X);
  Write('Введите N: ');
  Readln(N);
  Rez:=1;
  pow:=1;
  factorial:=1;
  For i:=1  to 2*N do
   begin
    factorial:=factorial*i;
    pow:=pow*X;
    if (i mod 2) = 0 then
     begin
      pow:=pow*(-1);
      Rez:=Rez+pow/factorial;
     end;
   end;
  Writeln(Rez);
end.