Var n, m, sum: integer; begin sum : = 0; repeat writeln('введите числ с которого начинается ряд'); readln(n); writeln('введите число которым заканчивается ряд'); readln(m); until n< m; if odd(n) then n : = n + 1; if odd(m) then m : = m - 1; sum : = (n + m) * (m - n + 2) div 4; writeln('сумма чётных чисел натурального ряда: ', sum); end.
Program proga_1; var x: real; n: integer; function func(n: integer; x: real): real;var i: integer; i1, i2, i3: real;
//функция вычисления степени function power(n: integer; x: real): real; var i: integer; res: real; begin res := x; for i := 1 to n - 1 do res := res * x; power := res; end; //фукция вычисления факториала function factorial(x: integer): integer; var i, res: integer; begin for i := 1 to x do inc(res, i); factorial := res; end; begin if n mod 2 = 0 then i1 := 1 else i1 := -1; //определяем число -1 степени n i2 := power(2 * n, 2 * x); i3 := factorial(2 * n + 1); func := (i1 * i2) / i3;end; begin write('Введите n: '); readln(n); write('Введите x: '); readln(x); writeln('Сумма равна: ', func(n, x)); end.
