Внекоторой стране проживает 1000 человек. индивидуальные номера налогоплательщиков (инн) кодируются минимальным количеством бит. каков объем информационного сообщения в байтах, содержащего 200 инн?

4^x> =1000 отсюда х=5

Program bifi; const m=3; n=5; var a: array[1..m,1..n] of integer; i,j,k,l: integer; begin k: =0; l: =0; for i: =1 to m do begin for j: =1 to n do read(a[i,j]);                         write(' ');                         writeln;                         end; for j: =1 to n do k: =a[1,j]+k; for i: = 1 to m do l: =a[i,5]+l; writeln(k); writeln(l); readln; end.

1) program chik2; var a,b,c: real; begin readln(a,b); if(a< b)then begin c: =a; a: =(a+b)/2; b: =b*c; end; if(a> =b)then begin c: =b; b: =(a+b)/2; a: =a*c; end; writeln(a,' ',b); end. 2) program chik; var a,x,b: real; begin readln(a,b); if(a=0)and(b< > 0)then  writeln('нет решений'); if(a< > 0)then begin   x: =-b/a; writeln(x); end; end. 3) program chik3; var a,b: real; begin readln(a,b); if(a< b)then a: =a*2 else if(b< a)then  b: =b*2; writeln(a,' ',b); end.