Если перевести из 16ной системы счисления в 10ную, то 2B16=11030, 13435=78901, 3478=13432, FE16=65046. Т.е. четные все, кроме 13435=78901
Const
N = 5;
Var
B:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('B(',N,'):');
For i := 1 to N do
Begin
B[i]:=random(21)-10;
Write(' ',B[i]);
S:=S+B[i];
End;
WriteLn;
WriteLn('S = ',S);
End.
Никак блин.Лол кек чебурек
Var
a, b, c: integer;
begin
read(a, b, c);
writeln('P = ',a * b * c);
writeln('S = ',a + b + c);
writeln('A = ',(a + b + c) / 3);
end.
Метод подбора предельно прост и туп. В первой колонке набрасываешь ряд чисел, к примеру, от -10 до 10 (потом при необходимости изменишь масштаб). Во второй пишешь само уравнение (в твоём случае: "=A1^2+3*A1-3-1"). Протягиваешь на ту же высоту. Ищешь, где оно равно или наиболее близко к нулю. Так, сразу стало видно, что корни этого уравнения: -4 и 1.