1. Число 2сс справа налево разбиваем на двоичные триады(по 3 разряда), слева (если надо) дописываемым недостающие нули
010 110 000 101 и приводим эти триады в цифры 8СС
2605
2. В16сс разбиваем на тетрады(по 4 разряда)
0011 0001 1111 1101=31FD
из 8сс в 16сс и наоборот все делается через 2СС
546(8)=101 100 110, разбиваем на тетрады 0001 0110 0110=166(16)
<span>(A\/B)/\(¬A\/B)=
=(А+B)*(</span>¬A+B)=
=A*¬A+A*B+¬A*B+B*B=
=A*B+¬A*B+B=
=B
Вот :
var y,x:integer;
begin
writeln('Введите x');
read(x);
y:=x*x;
writeln;
write('Значение функции равно: ');
write(y);
end.
Ошибка <span>Меркурий</span> т.к все слова на английском ,а это на русском
Const n=20;
var a:array[1..n] of integer;
i,j,t,i1,i2,x:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(15);
Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>a[j+1] then
begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln;
write('x = '); readln(x);
i1:=1; i2:=n;
repeat
i:=(i1+i2) div 2;
if a[i]<x then i1:=(i1+i2) div 2+1;
if a[i]>x then i2:=(i1+i2) div 2-1;
until (a[i]=x)or(i1>i2);
if a[i]=x then
begin
while (i>0)and(a[i]=x) do i:=i-1;
i:=i+1; j:=i;
while (i<=n)and(a[i]=x) do i:=i+1;
writeln('Число ',x,' встречается ',i-j,' раз(а)');
end
else writeln('Число ',x,' не встречается');
writeln;
end.
Пример:
Исходный массив:
4 13 5 3 14 12 12 8 9 6 3 2 4 4 14 1 12 2 5 9
Отсортированный массив:
1 2 2 3 3 4 4 4 5 5 6 8 9 9 12 12 12 13 14 14
x = 5
Число 5 встречается 2 раз(а)