Очистиь все данны с диска
по Моргану и другим правилам ... =–А\/–В\/А=(–А\/А) \/–В=1\/–В=1
9BC в двоичную, шестнадцатиричная и двоичная - родственные системы счисления, поэтому
9=1001
B=1011
C=1100
9BC=1001 1011 1100
Function f(a,b:real):real;
begin
if a<0 then f:=a*a+3*a-b else f:=b*b-3*b+a;
end;
var t,m,s:real;
begin
write('t = '); readln(t);
write('m = '); readln(m);
s:=sqr(f(2*t+m,t*m))+sqr(f(3*m,2*t));
writeln('S = ',s);
end.
Пример:
t = 2
m = 3
S = 794