.(Информационное сообщение объемом 1,5 кб содержит 3072символа. сколько симфолов содержит алфавит, при

i=1,5 кбайта=1,5 * 1024 байта = 1,5 * 1024 *8 бит = 12288 битi=i/k=12288/3072 = 4 бита - на один символ

значит n=2^4 = 16 символов в алфавите.

 

ответ: 16 символов

один сивол занимает 1,5 кбайт / 3072 = 1,5 * 1024 байт / 3072 = 1,5 байт / 3 = 0, 5 байт = 4 битмощность алфавита (количество символов в алфавите) находится по формуле  , где n - мощность алфавита, i - количество бит на один символ.ответ:   символов в алфавите

Var n1: array[1..10] of integer;       n2: array[1..15] of integer;       r1: array[1..10] of integer;       r2: array[1..15] of integer;       min1, min2, max1, max2, i: integer;       r1min, r2min, r1max, r2max: integer; begin min1: =500; min2: =500; max1: =0; max2: =0; randomize; for i: =1 to 10 do n1[i]: =random(900)+100; for i: =1 to 15 do n2[i]: =random(900)+100; for i: =1 to 10 do r1[i]: =random(500); for i: =1 to 15 do r2[i]: =random(500); for i: =1 to 10 do   if r1[i]< min1 then   begin   min1: =r1[i];   r1min: =i;   end else     begin     if r1[i]> max1 then       begin       max1: =r1[i];       r1max: =i;       end;     end; for i: =1 to 15 do   if r2[i]< min2 then   begin   min2: =r2[i];   r2min: =i;   end else     begin     if r2[i]> max2 then       begin       max2: =r2[i];       r2max: =i;       end;     end; writeln('v 1 taxoparke min ', n1[r1min]); writeln('vo 2 taxoparke min ', n2[r2min]); writeln('v 1 taxoparke max ', n1[r1max]); writeln('vo 2 taxoparke max ', n2[r2max]); write('n1 '); for i: =1 to 10 do write(n1[i], ' '); writeln; write('r1 '); for i: =1 to 10 do write(r1[i]: 3, ' '); writeln; write('n2 '); for i: =1 to 15 do write(n2[i], ' '); writeln; write('r1 '); for i: =1 to 15 do write(n1[i]: 3, ' '); writeln; end.

//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) begin   var a : = readinteger('возраст антона: ');   var b : = readinteger('возраст бориса: ');   var v : = readinteger('возраст виктора: ');   if (a > b) and (a > v) then begin println('антон старше всех'); exit; end;   if (b > a) and (b > v) then begin println('борис старше всех'); exit; end;   if (v > a) and (v > b) then begin println('виктор старше всех'); exit; end;   if (a > v) and (a = b) then begin println('антон и борис старше виктора.'); exit; end;   if (a > b) and (a = v) then begin println('антон и виктор старше бориса.'); exit; end;   if (v > a) and (v = b) then begin println('виктор и борис старше антона.'); exit; end;   if (a = b) and (b = v) then begin println('виктор, борис и антон одного возраста.'); exit; end; end.