Писал похожую программу , мб пригодиться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,digit)-1; ToDec:=m; end; begin writeln('Введите из какой СC:'); 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.
Почему я 7 клас, и не понимаю КАК ЭТО ДЕЛАТЬ??
A) F=A*B*¬A*B+B ( Формула A*¬A=0)
F=B
б) F=(A+B)*(¬A+¬B)
F=A*¬B+¬A*B
F=A⊕B
в) F=A+A*B+A*C
F=A*(1+B+C)
F=A
Var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((x >= 0) and (y >= x - 6) and (sqr(x) + sqr(y) <= 36))
end.
5. Для кодирования одного из 4096 цветов требуется log(2)4096 = 12 бит (2^12=4096); для кодирования одного из 64 цветов требуется log(2)64=6 бит (2^6=64). Так как количество точек графического файла не меняется, то объем второго файла уменьшился в 12/6 = 2 раза.
6. Объем видеопамяти:
1152*864*8 бит = 1152*864*8 / 8 байт = 1152*864 / 1024 Кбайт = 972 Кбайта
7. 5. Для кодирования одного из 256 цветов требуется log(2)256 = 8 бит (2^8=256); для кодирования одного из 65536 цветов требуется log(2)65536=16 бит (2^16=65536). Так как количество точек графического файла не меняется, то объем второго файла увеличился в 16/8 = 2 раза.