Ответ:
1F4BB
11111010010111011
Объяснение:
Если затрудняешься в кодированием и декодированием то просто открой калькулятор в виндовс,там зайди в "вид" и "программист". В Hex вписывай свои символы с буквами и после нажимай на "bin" и из 16-ричной системы он переведет в двоичную))
Удачи
Uses
graphABC;
const
W = 800; H = 500;
function DrawSin(x: real): real;
begin
DrawSin := sin(x);
end;
function DrawCos(x: real): real;
begin
DrawCos := cos(x);
end;
var
x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer;
a, b, fmin, fmax, x1, y1, x2, y2, mx, my, dx, dy, num: real;
i: byte;
s: string;
begin
SetWindowSize(W, H);
xLeft := 50;
yLeft := 50;
xRight := W - 50;
yRight := H - 50;
a := -10; b := 10; dx := 1;
fmin := -5; fmax := 5; dy := 1;
mx := (xRight - xLeft) / (b - a);
my := (yRight - yLeft) / (fmax - fmin);
x0 := trunc(abs(a) * mx) + xLeft;
y0 := yRight - trunc(abs(fmin) * my);
line(xLeft, y0, xRight + 10, y0);
line(x0, yLeft - 10, x0, yRight);
SetFontSize(12);
SetFontColor(clBlue);
TextOut(xRight + 20, y0 - 15, 'X');
TextOut(x0 - 10, yLeft - 30, 'Y');
SetFontSize(7);
SetFontColor(clRed);
n := round((b - a) / dx) + 1;
for i := 1 to n do
begin
num := a + (i - 1) * dx;
x := xLeft + trunc(mx * (num - a));
Line(x, y0 - 3, x, y0 + 3);
str(Num:0:1, s);
if abs(num) > 1E-15 then
TextOut(x - TextWidth(s) div 2, y0 + 10, s)
end;
n := round((fmax - fmin) / dy) + 1;
for i := 1 to n do
begin
num := fMin + (i - 1) * dy;
y := yRight - trunc(my * (num - fmin));
Line(x0 - 3, y, x0 + 3, y);
str(num:0:1, s);
if abs(num) > 1E-15 then
TextOut(x0 + 7, y - TextHeight(s) div 2, s)
end;
TextOut(x0 - 10, y0 + 10, '0');
x1 := a;
x2 := a;
while x1 <= b do
begin
y1 := DrawSin(x1);
y2 := DrawCos(x2);
if ((x1 >= -2*pi) and (x1 <= 2*pi)) then
begin
x := x0 + round(x1 * mx);
y := y0 - round(y1 * my);
if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clBlue);
x := x0 + round(x2 * mx);
y := y0 - round(y2 * my);
if (y >= yLeft) and (y <= yRight) then SetPixel(x, y, clGreen);
end;
x1 := x1 + 0.001;
x2 := x2 + 0.001;
end
end.
1 ) A$2+ 2*B2 = 1+ 2*2=1+4=5
то есть в ячейке будет записано число 5
2) А$1+B$1=10+20=30
в ячейке будет записано число 30
Десятичная Двоичная восьмеричная шестнадцатеричная
0 0 0 0
1 1 1 1
2 10 2 2
3 11 3 3
4 100 4 4
5 101 5 5
6 110 6 6
7 111 7 7
8 1000 10 8
9 1001 11 9
10 1010 12 А (если в двоичной системе цифра 16, то в шестнадцатеричной 10, если 17, то 11 и так далее)
1) var A, B: array[1..25] of integer;
i, x: integer;
begin
writeln('введите элементы массива A: ');
for i := 1 to 25 do begin
read(A[i]);
if A[i] mod 3 = 0 then
begin
x := x + 1;
B[x] := A[i];
end;
end;
write('элементы массива A, кратные трём: ');
for i := 1 to x do begin
write(B[i], ' ');
end;
end.
2) var A, B, C: array[1..10000] of integer;
i, n, x: integer;
begin
writeln('введите размеры обоих массивов: ');
read(n);
write('введите элементы массива A: ');
for i := 1 to n do begin
x := x + 1;
read(A[i]);
end;
write('введите элементы массива B: ');
for i := 1 to n do begin
read(B[i]);
end;
write('элементы массива C: ');
for i := 1 to x do begin
C[i] := A[i];
write(C[i], ' ');
C[i] := B[i];
write(C[i], ' ');
end;
end.