Какое выражение соответствует f xyzf 1 0 0 1 0 1 0 1 0 1 1 0 1) не X и не Y или не Z 2)не X или Y или не Z 3)X или не Y или не Z 4) X и Y и не Z CРОЧНО УМАЛЯЮ
Задача 1 var a:array [1..100] of integer; i,n:integer; begin writeln('Введите n <=100'); readln(n); writeln('Введите массив'); for i:=1 to n do readln(a[i]); writeln('Массив'); for i:=1 to n do write(a[i], ' '); writeln; writeln('Элементы равные сумме двух соседей:'); for i:=2 to (n-1) do if a[i]=(a[i-1]+a[i+1]) then write(a[i],' '); writeln; end.
задача 5 var a:array [1..10000] of integer; i,n, mx1, mx2:integer; begin writeln('Введите n <=10000'); readln(n); writeln('Введите массив'); for i:=1 to n do readln(a[i]); writeln('Массив'); for i:=1 to n do write(a[i], ' '); writeln; mx1:=1; for i:=2 to n do if a[i]>a[mx1] then mx1:=i; if mx1=1 then mx2:=2 else mx2:=1; for i:=1 to n do if (a[i]>a[mx2])and(i<>mx1) then mx2:=i; writeln('Два числа произведение которых максимально: ',a[mx2],' ',a[mx1]); end.
Каждую букву можно закодировать какой-то последовательностью битов. Минимально количество битов, необходимых для кодирования всех букв таким образом, чтобы все последовательности различались хотя бы в одном бите, равно 3, так как 2^2<6<2^3 То есть одна буква несет 3 бита информации. Например, был алфавит а,б,в,г,д,е,ж Нельзя каждой букве сопоставить последовательность из 2 битов, поскольку максимально возможное количество таких последовательностей равно 2^2=4, что меньше 6. А вот 3 битами закодировать можно, например так: а - 000 б - 001 в - 010 г - 011 д - 100 е - 101 При этом еще останется неиспользованных две последовательности: 110 и 111. Алфавит можно кодировать и бОльшим количеством бит, но это делать незачем.
var
a:array [1..100] of integer;
i,n:integer;
begin
writeln('Введите n <=100');
readln(n);
writeln('Введите массив');
for i:=1 to n do
readln(a[i]);
writeln('Массив');
for i:=1 to n do
write(a[i], ' ');
writeln;
writeln('Элементы равные сумме двух соседей:');
for i:=2 to (n-1) do
if a[i]=(a[i-1]+a[i+1]) then write(a[i],' ');
writeln;
end.
задача 5
var
a:array [1..10000] of integer;
i,n, mx1, mx2:integer;
begin
writeln('Введите n <=10000');
readln(n);
writeln('Введите массив');
for i:=1 to n do
readln(a[i]);
writeln('Массив');
for i:=1 to n do
write(a[i], ' ');
writeln;
mx1:=1;
for i:=2 to n do
if a[i]>a[mx1] then mx1:=i;
if mx1=1 then mx2:=2 else mx2:=1;
for i:=1 to n do
if (a[i]>a[mx2])and(i<>mx1) then mx2:=i;
writeln('Два числа произведение которых максимально: ',a[mx2],' ',a[mx1]);
end.
То есть одна буква несет 3 бита информации.
Например, был алфавит а,б,в,г,д,е,ж
Нельзя каждой букве сопоставить последовательность из 2 битов, поскольку максимально возможное количество таких последовательностей равно 2^2=4, что меньше 6.
А вот 3 битами закодировать можно, например так:
а - 000
б - 001
в - 010
г - 011
д - 100
е - 101
При этом еще останется неиспользованных две последовательности: 110 и 111.
Алфавит можно кодировать и бОльшим количеством бит, но это делать незачем.