1)представить числа в двоичном виде в восьмибитовом представление в формате целого без знака 1)64 2)255 - id947182520210925 от Котик2841 25.09.2021 19:07

Question

Информатика: 1)представить числа в двоичном виде в восьмибитовом представление в формате целого без знака 1)64 2)255 2)представить числа в двоичном виде в восьмибитовом представление в формате целого со знаком 1)127 2)-127

Котик2841 · Accepted Answer

Var
    s: string;
    a, b: integer;
begin
    readln(s);
    if s[1] = 'x' then begin
        a := StrToInt(s[3]);
        b := StrToInt(s[5]);
        if s[2] = '-' then a := -a;
        writeln(b - a);
    end
    else if s[3] = 'x' then begin
        a := StrToInt(s[1]);
        b := StrToInt(s[5]);
        if s[2] = '-' then begin
            a := -a;
            b := -b;
        end;
        writeln(b - a);
    end
    else if s[5] = 'x' then begin
        a := StrToInt(s[1]);
        b := StrToInt(s[3]);
        if s[2] = '-' then
            b := -b;
        writeln(a + b);
    end
end.

учтите что никакой защиты от дурака или неверного ввода

MOGZ ответил