Pascal abc значения функции f(x)=0,348+cox(x/4) определены при x=x0(hx)xn определить, сколько значений функции f(x) при заданных x расположены ниже прямой y=0,555.

166

500

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

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

найксон

Информатика

4,8(82 оценок)

Var a,b,h,f,x: real; begin write('введите a,b,h'); readln(a,b,h); x: =a; writeln('x': 8,'f(x)': 10); while x< =b do begin f: =1/2*sin(x/4)+1; writeln(x: 8,f: 10: 3); x: =x+h; end end.

alisakholodova9

Информатика

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

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin var n: =15; var a: =arrrandom(n,-99,99); a.println; range(2,n,2).select(t-> a[t-1]).println end. пример 21 -19 -93 -18 -16 -58 -91 21 -74 85 -60 -16 68 31 72 -19 -18 -58 21 85 -16 31