Все просто.
-5 в двоичном виде 11111011
28 в двоичном виде 00011100
а теперь просто перемножаем
11111011*00011100 = 00011000 (24)
Дальше инвертируем
00011000 = 11100111 (-25)
А) y:=(3*x*x+7)/(5*x+1)
б) y:=sqrt((a*a-c)/(4*a*c))-a/(7*c)
в) y:=sqr(cos(2*x))+abs(sin(x/2))
г) x*x+y*y <= sqr((z-8))
д) sqrt((5*x*x+2)/abs(3*x*x*y))-sqr(x-y)/(5*x*y)
// PascalABC.Net 3.0, сборка 1066
const
s1='АБВГабвг';
s2='12341234';
var
c:char;
i:integer;
begin
Write('Введите букву класса: '); Readln(c);
i:=Pos(c,s1);
if i>0 then begin
c:=s2[i];
case c of
'1':Writeln('гимназический');
'2':Writeln('математический');
'3':Writeln('обычный');
'4':Writeln('коррекционный')
end
end
else Writeln('Неверная буква')
end.
<em><u>Тестовое решение:</u></em>
Введите букву класса: Б
математический
<em><u>Примечание: работа программы также проверена в Borland Pascal 7.01</u></em>
<span>uses crt;
var
a,b,k,i:integer;
begin
clrscr;
writeln('Введите 18 целых чисел, в начале несколько одинаковых:');
readln(a);
k:=1;
for i:=2 to 18 do
begin
readln(b);
k:=k + ord(b=a);
end;
write('Количество одинаковых в начале=',k);
readln
end.</span>