[за спам сразу бан] Программа должна : из двух чисел с разной четностью вывести на экран нечетное число ( ОБЯЗАТЕЛЬНО ИСПОЛЬЗОВАТЬ УСЛОВНЫЕ ОПЕРАТОРЫ 'then' "else"
Язык Pascal uses crt; var cs1,cs2,res,change:integer; TD:string; function FromDec(n,r:longint):string; var s:String; const digit:string[16]='0123456789ABCDEF'; begin s:=''; repeat s:=digit[(n mod r)+1]+s; n:=n div r; until n=0; FromDec:=s; end; function ToDec(n:string;r:longint):longint; var m,i:longint; const digit:string[16]='0123456789ABCDEF'; begin m:=0; while n[1]='0' do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n[i],digit)-1; ToDec:=m; end; begin writeln('Введите из какой CC:'); repeat readln(cs1); until (cs1>=2) and (cs1<=36); writeln('Введите число в соответствии с CC:'); readln(TD); writeln('Введите в какую CC:'); repeat readln(cs2); until (cs2>=2) and (cs2<=36); writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:'); writeln(FromDec(ToDec(TD,cs1),cs2)); end.
16 бит, выразить в компьютерном представлении, заодно выснить макс. мин. числа вмещающиеся в 16 бит и не только в 16 бит, а ещё модифицированные 16 бит из задачи ппц, я учител твой шатал.
со знаком: 8 бит (маленькое число) min = -128; max = 127 числа. 16 бит (большое число) min = -32768; max = 32767 числа.
без знака: 8 бит (маленькое число) min = 0; max = 255 числа. 16 бит (большое число) min = 0; max = 65535 числа. ----------------------------------------------------------------------------------------
Записать дополнительный код отрицательного числа в 16 бит. -2002 = 1111 1000 0010 1110 255 = 0000 0000 1111 1111 -255 = 1111 1111 0000 0001 32768 = 1111 1111 1111 1111 тут 1 бит обрезался, поэтому так. -32768 = 1000 0000 0000 0000
Монетор или комонды блок