Автомобильный номер состоит из 8 символов: четырёх цифр, за которыми следуют 4 буквы. допустимыми символами считаются 10 цифр и 25 заглавных латинских букв (кроме буквы o для хранения каждой из цифр используется одинаковое и наименьшее возможное количество бит. аналогично, для хранения каждой из букв используется одинаковое и наименьшее возможное количество бит. при этом количество бит, используемых для хранения одной буквы и одной цифры могут быть разными. для хранения каждого номера используется одинаковое и минимально возможное количество байт. сколько байт памяти потребуется для хранения 500 автомобильных номеров? номера хранятся без разделителей. 1)3000 2)2500 3)2000 4)1500

N=10   i=  4  бит на 1 цифру n=25   i=5   бит на 1 букву в номере (каждом) 4 буквы и 4 цифры  ⇒4*4+5*4=36 бит на 1 номер                                                                 36/8=5 байт/1 номер                                                                 5*50=2500 ответ 2

1)

var

i,k: integer;

a: array [1..14] of integer;

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

a: array [1..14] of integer;

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

 

 

 

 

 

Program m;   var old, new: real;   k,n,i: integer;   begin   repeat   write('vvod posl n= ');   readln(n)   until n> 0;   write('vvod x= ');   readln(old);   k: =0;   for i: =2 to n do   begin   write('vvod x= ');   readln(new);   if new*old< 0 then k: =k+1;   old: =new;   end;   if k> 0 then   writeln('posledovatelnost menyaet znak ', k, ' raz')   else writeln('posledovatelnost ne menyaet znak');   end.