Написать программу вычисления значения выражения: sin2sin4sin6…sin2n при заданном n (цикл «до»)

131

455

Посмотреть ответы 2

Ответы на вопрос:

Teacher991

Информатика

4,6(3 оценок)

Var n: integer; x,p: real; begin x: =2; p: =1; writeln('n? '); readln(n); repeat p: =p*sin(x); x: =x+2; until x> n*2; writeln('p: ',p: 4: 2); end.

JahKhalib228

Информатика

4,6(38 оценок)

// pascalabc.net 3.2, сборка 1334 от 12.11.2016 begin var a: =arrrandom(readinteger('n=',50); a.println; a: =a.select(x-> x div 2).toarray; a.println; var k1,k2: integer; write('введите k1,k2 (k1< =k2< =',a.length,'): '); read(k1,k2); writeln('произведение элементов с номерами [',k1,': ',k2,'] равно ', a[k1-1: k2].aggregate(biginteger(,n)-> m*n)) end. пример n= 13 12 34 -4 -18 23 45 -7 49 47 11 -24 39 31 6 17 -2 -9 11 22 -3 24 23 5 -12 19 15 введите k1,k2 (k1< =k2< =13): 3 8 произведение элементов с номерами [3: 8] равно -313632