Запрограмувати обчислення суми ряду: s=1-x^(3)+x^(5)-x^(7)++x^(2*n+1 значення n та x вводяться з консоля. в паскаль

program k;

var x: real;

n: integer

 

function f(y: real,j: integer): real;

begin

f: =1

for k: =1 to j do begin

f: =f*y;

end;

end;

 

begin

readln(x,n);

s: =1;

for i=1 to n do begin

s: =s+f(-1,i)*f(x,2*i+1)

end;

writeln(s);

end.

 

// pascalabc.net 3.3.5, сборка 1636 от 10.03.2018 // внимание! если программа не работает, обновите версию! 1. современное решение (приводится в качестве контрольного примера, эталон суммы). begin   range(101,301,2).sum.println end. результат 20301 2. цикл while begin   var (i,k,s): =(101,301,0);   while i< =k do begin s+=i; i+=2 end;   s.println end. 3. цикл repeat begin   var (i,k,s): =(101,301,0);   repeat       s+=i; i+=2   until i> k;   s.println end. результаты выполнения всех трех программ одинаковы.

Решение № 2.1-2.5, 3, 5 смотри во вложении. 3.1. if (c > 0) cout < < "положительное." < < endl; else  cout < < "отрицательное." < < endl; 3.2. для записи 3.2. - 3.3.  используется функция "pow", для которой надо подключить библиотеку "< cmath> ". if (x > 4 & & x < 17) y = pow(x,2) - 9; 3.3. if(a > = -3 & & a < = 7) a -= 26; else a = pow(a,3); 3.4. if (b > = 26 & & b < = 48) b +=26; else  b /= 2; 4. a. c = 25. b. b = 10. c. e = 213. d. не четное. e. отрицательное или с разными знаками.