Здесь есть 9 и 7 они означают чтото
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var k:=ReadInteger('k=');
var i:=a.FindIndex(x->x=k);
if i=-1 then Writeln('нет')
else Writeln('да')
end.
<u>Примеры</u>
n= 15
43 -58 43 62 60 -32 60 50 73 99 -75 98 6 -42 79
k= 73
да
n= 8
-86 30 47 -75 85 32 -70 83
k= 10
нет
Задание 1. Ответ 18×8= 144 бит
задание 2. ответ 39×8=312 бит
2.
3(x-2)+2(4-x) = 3*(x-2)+2*(4-x)
4x^3-y^2 = 4*power(x,3)-sqr(x)
2a+b/3(b) = (2*a+b)/(3*sqrt(b))
3.
2(a-b) = 2*(a-b)
(a+b)(c+d) = (a+b)*(c+d)
2(c)/c-2d = (2*sqrt(c))/c-2*d
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var n:=ReadInteger('Степень полинома:');
var p:=ReadArrReal('Коэффициенты полинома по убыванию степеней:',n+1);
var a:=ReadReal('Значение А:');
var q:=new real[n+2];
q[0]:=p[0];
q[n+1]:=-p[n]*a;
for var i:=1 to n do q[i]:=p[i]-a*p[i-1];
Writeln('Коэффициенты результирующего полинома');
q.Println
end.
<em>Контрольный пример</em>P(x)=3x²-4x+5, A=2.5
(x-A)P(x)=3x³-11.5x²+15x-12.5
<u>Результат выполнения программы</u>Степень полинома: 2
Коэффициенты полинома по убыванию степеней: 3 -4 5
Значение А: 2.5
Коэффициенты результирующего полинома
3 -11.5 15 -12.5