Используем схему Горнера.
y = x³+2.5x²-x+1 = 1+x(-1+x(2.5+x))
var
x,y:real;
begin
Read(x);
y:=x+2.5;
y:=y*x;
y:=y-1;
y:=y*x;
y:=y+1;
Writeln(y)
end.
А)......
1)А=0, В=0
(0→0)&(0v1)=1&1=1
2)A=1, B=0
(1→0)&(1v1)=0&1=0
3)A=0, B=1
(0→1)&(0v0)=1&0=0
4)A=1, B=1
(1→1)&(1 v0)=1&1=1
б).......
1) A=0, B=0
(0<=> 0)&(0&0)v (1&1)= 1&0 v1= 0v1=1
2) A=1, B=0
(1<=>0)&(1&0)v(0&1)=0&0v0=0v0=0
3) A= o, B=1
(0<=>1)&(0&1)v(1&0)=0&0v0=0v0=0
4) A=1, B=1
(1<=>1)&(1&1)v(0&0)=1&1v0=1&0=0
Var a,b,r:real;
begin
readln(a,b);
r:=(a+b)*(a+b);
writeln(r);
<span>end.</span>
Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>
Ключевое слово "array" написано с ошибкой
program n_1;
var i: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(50);
for i:=1 to 10 do write (a[i], ' ');
end.