I: integer;
a: array [0..100] of integer;
b: array [0..100] of integer;
for i:=0 to 100 do begin
if A[i]<0 them b[i]:=0
else b[i]:=1;
end;
Vari:integer;beginfor i:=100 to 999 do beginif (i mod 15=11) and (i mod 11=9) thenwrite(i+' ');end;end. Писал на скорую руку,могут быть ошибки
При перекодировке информационный вес символа уменьшился в 2 раза, следовательно и объем уменьшился в 2 раза, таким образом размер файла был 320бит, а стал 160 бит.
160/8 = 20 символов
В решении & и, || или, ~ не, -> импликация.
1. Похоже на правду.
2.
1) ну да.
2) Нам нужно то, что в треугольнике и не в прямоугольнике. <em>C & ~A.</em>
3) Опять тоже самое. <em>C& ~A</em>
3.
1) Распишем импликацию: A -> B = ~A || B
(~(A || ~B) || B) & (~A || B) = ((~A & B) || B) & (~A || B) = (~A & B) & (~A & B) = ~A & B
2)
~(A & B) -> (~A & B) = (A & B) || (~A & B) = B
(A -> B) & B || ~B = (~A || B) & B || B = B || B = B
Итого ответ A & B
3)
~(A & B) -> (~A & B) = (A & B) || (~A & B) = 0
(A -> B) & 0 = 0