1. определите количество информации, получаемой при бросании монетки, с вероятностного подхода. 2. определите количество информации, получаемой при бросании двух игральных кубиков, с вероятностного подхода. 3. определите количество информации, получаемой при извлечении одного шара из урны, содержащей 3 белых, 10 красных и 7 черных шаров. 4. определите количество информации, приходящейся на один символ в слове "биология", с вероятностного подхода.

Языки низкого уровня - это машинный язык, язык ассемблера. машинный язык состоит из двух символов - 0 и 1 (программа строится в двоичной системе счисления). в принципе, эти языки низкого уровня сейчас если и применяются, то для создания  небольших программ. языки низкого уровня ориентированы на машину. а вот языки высоко уровня ориентированы на человека (на пользователя пк). это такие языки программирования: бейсик, паскаль, турбо паскаль, с++ и другие. чем более понятен язык человеку, тем выше его уровень.

Uses crt; 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.