<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
Writeln(SeqGen(n,i->Power(x,2*i+1)/(2*i+1)).Sum)
end.
<u>Пример</u>
n= 9
x= 2.5
418654.338245567
Var x: Integer;
begin
readln(x);
writeln(((3/abs(x))+(exp((1/3) * ln(x))))/1);
end.
Могу Помочь С 5-ым Номером. - (2,3) (6,3) (9,3) (12,1) (9,1) (7,1) (10,1) (5,3) (1,3) (12,1) (4,1) (6,3) (12,1) (3,3) (7,2) (2,1) (5,1) (3,3) (10,3) (4,2) (8,2) (12,1) (10,3) (12,1) (7,1) (7,2) (2,3) (1,1) (10,1) (12,1) (10,3) (9,3) (12,1) (6,1) (7,1) (10,1) (5,3) (1,3) (12,3)
4-ый номер - чётёщ лтчат ыгыт кёюлтёдлц.
или я хочу спать, или 4-тый номер странноватый •_•
<span>U(i) = U(i-1) + L(i-1), а L(i) = L(i-1) + L(i-2)? </span>
A(I) - массив
L - лучший рез-т
H - худший рез-т
S - средний рез-т
О - общая сумма рез-тов
CLS
DIM A(8)
FOR I=1 TO 8 STEP 1
INPUT A(I);
NEXT (I)
L = A(1)
H = A(1)
О=0
FOR I=1 TO 8 STEP 1
IF L<A(I) THEN L=A(I)
IF H>A(I) THEN H=A(I)
О=O+A(I)
NEXT (I)
S=O/8
останется только вывод полученных результатов