1. x>=-1&&x<=1
2. x<=-1&&x>=1
3. x<0&&y<0
4. x<0||y<0
5. x>0&&y>0
6. (x<0&&y>0)||(x>0&&y<0)
7.(x!=0)&&(y!=0)&&(z!=0)
8.(x==0)||(y==0)||(z==0)
9.(x!=0)||(y!=0)||(z!=0)
1 Мбайт =2^23 бита
1024 =2^10
2^23 : 2^10=2^13 бита - объём сообщения
1024 =2^10 cимволов - длина сообщения
2^13 : 2^10 =2^3 =8 бит - один символ
2^8 =256 символов - мощность алфавита (количество символов в алфавите)
Буду писать 4 цифры, 1 - A 2 - B 3 - C 4 - Результат
1)
0 0 0 1
0 0 1 0
0 1 0 1
0 1 1 0
1 0 0 1
1 0 1 0
1 1 0 0
1 1 1 0
2)
0 0 0 1
0 0 1 1
0 1 0 1
0 1 1 1
1 0 0 1
1 0 1 0
1 1 0 1
1 1 1 1
3)
0 0 0 1
0 0 1 0
0 1 0 1
0 1 1 0
1 0 0 1
1 0 1 0
1 1 0 0
1 1 1 0
4)
0 0 0 0
0 0 1 1
0 1 0 0
0 1 1 1
1 0 0 0
1 0 1 1
1 1 0 0
1 1 1 0
5)
0 0 0 1
0 0 1 0
0 1 0 0
0 1 1 0
1 0 0 0
1 0 1 0
1 1 0 0
1 1 1 0
2)var x,y:integer;beginreadln (x,y); while x<16 do begin if x>y then beginx:=x-2;y:=y+4 end else beginx:=x+5;y:=y-3; end; end;writeln ('x=',x,'y=',y);end.
криво но работает,там в таблице строка слева на право 16 11 16 12 и так вниз,так условие постоянно не выполняется (16<16 не выполняется)
3)var x,y:real;beginreadln (x,y);while x<0 dobeginif x<y thenbeginx:=x+1;y:=y/2;endelsebeginx:=x+3;y:=y-2;end;end;x:=x-5;y:=y+3;writeln ('x=',x,'y=',y);end.
таблицу сам
Лат. carne vale, «прощай, мясо» либо лат. car val — «корабль шутов»
