Решить ! только решение надо расписать. 1. переведите из десятичной системы счисления в двоичную числа: 96, 53, 74, 80, 122. 2. переведите числа из двоичной в десятичную систему счисления: 1010011 в двоичной; 10011101 в двоичной; 11011111 в двоичной; ответ записать в виде: 89 в десятичной = 101100 в двоичной 3. выполните действия и сделайте проверку: а) 1010011 в двоичной + 110101 в двоичной = б) 11011111 в двоичной - 1111010 в двоичной =

👇

Ответ:

Юлия0753

26.11.2021

Я бы посоветовал вместо прямого перевода 2 <-> 10 работать через 16ричную систему счисления. Алгоритмы те же, вычислений меньше, значит меньше и ошибок. А двоичные значения 16 цифр очень легко запомнить.

Гляди, как просто получится

96 = 60h = 0110 0000b

53 = 35h = 0011 0101b

74 = 4Ah = 0100 1010b

80 = 50h = 0101 0000b

122=7Ah= 0111 1010b

1010011b = 0101 0011b = 53h = 5*16+3=83

10011101b= 1001 1101b = 9Dh = 9*16+13 = 157

11011111b= 1101 1111b = DFh = 13*16+15= 223

1010011b + 110101b = 0101 0011b + 0011 0101b = 53h + 35h = 88h = 1000 1000b

11011111b + 1111010b = 1101 1111b + 0111 1010b = DFh+7Ah = 159h= 0001 0101 1001b

Замечание1. Для решения последнего примера нужно, конечно, знать таблицу сложения 16-ричных цифр.

Замечание2 Напомню перевод 10 ->16, повторюсь, алгоритм тот же, что и 10->2

Например

122/16 = 7 (ост 10), значит 122=7Аh

Замечание3 И последнее, в практической деятельности 2-ичная система практически не используется, профессионалы, если нужно, работают с 16-ричной(это связано с тем, что байт, так уж случилось, равен 8 бит).

Ну, вроде всё.

4,5(68 оценок)

Открыть все ответы

Ответ:

sashakameka

26.11.2021

1. var a: array[1..100] of Integer ;
i,n,p: integer;
begin
p:=1;
Writeln('Введите количество элементов в массиве');
Readln(n);
Writeln('Масив');
for i:=1 to n do
begin
a[i]:=Random(10);
Write(a[i]:3);
if a[i] mod 2 = 0 then p:=p*a[i];
end;
Writeln;
Writeln('Произведение четных элементов массива = ', p);
end.

2. var a: array[1..10] of Integer ;
i,c,sum,n: integer;
begin
Writeln('Введите число');
Readln(c);
for i:=1 to 10 do
begin
Writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i] > c then
begin
sum:=sum+a[i];
n:=n+1;
end;
end;
Writeln('Среднее арифмитическое элементов массива которые превышают ', c, ' = ',sum/n);
end.

4,8(91 оценок)

Ответ:

Margo1961

26.11.2021

В этой проге 1 и 2
program p1;
uses crt; Const n = 10;
var a:array [1..n] of integer;
i,p,c:integer;
k,sr:real;
begin
read(c);
for i := 1 to N do begin
a[i]:= random(21)-10;
write(a[i]:4);
end;
writeln;
p:=1;
sr:=1;
for i:=1 to N do begin
   If (a[i]mod 2 = 0) and (a[i]<>0) then begin
    p:=p*a[i];
    end;
    If c<=a[i] then begin
    sr:=a[i]*sr;
    K:=k+1;
    end;

    end;
    sr:=sr/k;
   writeln('Произведение чётных :',p);
   writeln('Среднее арифметическое ',sr:5:2);

end.
Только всё равно проверь!

4,8(38 оценок)

Это интересно:

Компьютеры-и-электроника

23.05.2020

Как удалить файлы Только для чтения без проблем...

Компьютеры-и-электроника

02.04.2023

Как сделать, чтобы ваш блог отображался в начале списка результатов поиска...

Взаимоотношения

01.11.2021

Как страстно целовать: советы и рекомендации для пар...

Кулинария-и-гостеприимство