Дан двоичный код:
100101010001100 011000001100101 011000111100011 010101010011001 000011000111010 001110011000100 001101001010011 111001011100100 110111001010101 000001101010110 010010010110010 001110011110101 011000110001101 000110100100101 110110101001000 101010110101010 110111110101100 011000001100101 001100100101001 000001000100100 001101011110010 111001011100100 000111010101100 101011001011001 100000101001011 000001101010110 010010000110101 110100100011101 000011010101011 110010110101001 011110110110010 100001110010010 110101110101100 011000001100001 011000011101011 000101010011001 000011000011010 001110011000110 010101001010011 111001000100100 101100110010100 001110011110101 101100100001110 111001100011101 100011010100011 100001011100110 110110101001000 101000110101010 110111110101000 011000001100101 011000111111011 010101010010001 001011000111010 001110011000110 000110001001110 011001100010001 101100100110011 011001011100100 000001010101100 011011011001101 010101010110101 100011100011101 000111010100011 100001011100011 110110101001000 111111001011001 011110110110010 100001100101010 111000111101011 110101110011010 111101001001110 011101100011001 001100100110011 111001011100100 110011011010101 000001101010110 110010010110010 001110011110111 101110100001100 111101000011101 100000000100100 101010100101110 110111110101100 011000001101101 011100111101011 010111010011001 000011000111010 001110011100110 011101001010011 111001011100100 110011001110101 000001101010110 110010010110010 001110010110101 101100100001110 111101100011101 000011010100111 000001011100111 110110101001100 011010110100000
Текст как следует закодировали, сжали и защитили от помех.
Задача: Перевести двоичный код в текст по коду Элиаса или Хемминга
type oc=record
per,bt,tr:integer;
end;
ab=record
fam,im:string;
ocen:oc;
end;
var b:array [1..50] of ab;
l:ab;
i,n,g,k,h:integer;
begin
clrscr;
writeln ('введи количество абитуриентов');
readln (n);
Writeln ('Вводи фамилии, имена и 3 оценки');
for i:=1 to n do
with b[i] do
begin
readln (fam);
readln (im);
readln (ocen.per,ocen.bt,ocen.tr);
end;
clrscr;
for j:=1 to n do
for i:=1 to n-1 do
if b[i].fam>b[i+1].fam then
begin
l:=b[i];
b[i]:=b[i+1];
b[i+1]:=l;
end;
writeln ('Список всех аббитуриентов:');
for i:=1 to n do
writeln (b[i].fam,' ',b[i].im,' ',b[i].ocen.per,' ',b[i].ocen.bt,' ',b[i].ocen.tr);
writeln ('Список допущенных аббитуриентов');
for i:=1 to n do
with b[i] do
begin
with ocen do
if (per>30) and (bt>30) and (tr>30) and (per+bt+tr>140) then writeln (fam,' ',im,' ',ocen.per,' ',ocen.bt,' ',ocen.tr);
end;
readln;
end.
ө мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп