4. сколько различных звуковых сигналов можно закодировать с 8 бит? 5. сколько нужно бит, чтобы закодировать алфавит из 64 символов? 6. когда вы подошли к светофору, горел желтый свет. затем зажегся красный. какой объем информации вы получили в момент, когда зажегся красный?

4.  8 = 2^3 ответ: 3 сигнала 5.64  =  2^ 6  ответ:   6  бит  6. 2  сигнала  (желтый  и  красный)  2^2  =  4

Program time; uses crt; var hh,mm,hp,mp,hr,mr,ost: integer; begin write('vvedite vremya otvravki : '); read(hh); read(mm); writeln; write('vvedite prodolgitelnost poleta: '); read(hp); read(mp); clrscr; writeln('otpravleniye somolyata v ',hh,': ',mm); mr: =mm+mp;   if mr> 59 then   begin   ost: =mr mod 60;   mr: =ost;   hr: =hr+(mr div 60);   end;   hr: =hh+hp; if hr> 24 then hr: =hr - 24; writeln; write('pributie samolyota v ', hr,': ',mr); writeln; end. данный можно сразу вводить через например 12 10 жмем ентер и вводим другие 14 55 и ентер и все прекрасно посчитает. тут совсем правильно подожди исправлю

3) program mas; uses crt; var mass: array [1..11] of integer; i: integer; begin for i: =1 to 11 do begin   mass[i]: =i;   writeln('  ',mass[i]); end; end. 2) program mas; uses crt; var mass1,mass2,mass3: array [1..10] of integer; i: integer; begin randomize; for i: =1 to 10 do begin mass1[i]: =random(11); mass2[i]: =random(11); end; for i: =1 to 10 do begin if mass1[i]< mass2[i] then       mass3[i]: =mass1[i]       else       mass3[i]: =mass2[i]; end; for i: =1 to 10 do write(' ',mass3[i]); end. хватает немного просто даже понять не могу что там.