2(15 ) 2.1 перевести число с из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. 2.2 полученное двоичное число перевести в десятичную, восьмеричную и шестнадцатеричную системы счисления. 2.3 в десятичной системе даны два числа а и в. найти сумму и произведение этих чисел в двоичной системе счисления. полученные результаты проверить переводом в 10-ю систему. 2.4 найти (а-в), (в-а), (-а-в) этих чисел в двоичной системе счисления с использованием обратного и дополнительного кодов чисел. полученные результаты проверить переводом в 10-ю систему. 2.5 закодируйте и разместите в разрядную сетку свою фамилию, используя базовую таблицу кодировки символов windows 1251. (приложение в). первая буква фамилии – прописная, остальные – строчные. c= 412,65 а= 246 в=35

👇

Ответ:

Anyakeklol1314

28.08.2020

1. 110011100.1010(2), 634.51(8), 19C.A6(16)
2. 412,65(10), 634.5(8), 19C.A(16)
3. 100011001(2)
4. (А-В): 11110110 -прямой(246)
100011 -прямой (35)
011100 -обратный(35)
011101-дополнительный(35)
11110110 + 011101 = 11010011 (211)
(В-А): 100011 - прямой(35)
00001001 - обратный(-246)
100011 + 00001001 = 00101100(211) => 00101100 -обратный код(-211)
(-А-В): 00001001 - обратный (-246)
00001010 -доп(246)
011100 - обратный (-35)
011101 - доп(35)
00001010 - 011101 = 100011001 -обратный(-281)

4,6(97 оценок)

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

Ответ:

dhgdfnhflk

28.08.2020

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    begin
        writeln('I');
        var n := ReadInteger('n=');
        Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
    end;

    begin
        writeln;
        writeln('II');
        var n := ReadInteger('n=');
        Writeln(n mod 11 = 0 ? 'YES' : 'NO');

    end;

    begin
        writeln;
        writeln('III');
        var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
        writeln;

        while a.Any() do
        begin
            write(a[0], ' ');
            a.RemoveAt(0);
            if not a.Any then break;

            write(a.Last, ' ');
            a.RemoveAt(a.Count - 1);
            if not a.Any then break;

            var n := 0;
            if a.Count > 1 then n := a.Count div 2 - 1;
            write(a[n], ' ');
            a.RemoveAt(n);
        end;
    end;
end.

4,4(46 оценок)

Ответ: