Объём сообщения, содержащего 2048 символов, составил 1/512 часть мбайта. каков размер алфавита, с которого записано сообщение?

I= ic/k= 1/512мб/2048=1/512*1024*1024*8/2048=8 бит, n= 2^i=2⁸=256 символов в алфавите

Var x1, x2, y1, y2: integer; o: boolean; begin        write('x1: ');         readln(x1);         write('y1: ');         readln(y1);         write('x2: ');         readln(x2);         write('y2: ');         readln(y2);         if (x1 < 0) and (x2 < 0) and (y1 < 0) and (y2 < 0) then o: =true;         if (x1 < 0) and (x2 < 0) and (y1 > 0) and (y2 > 0) then o: =true;         if (x1 > 0) and (x2 > 0) and (y1 > 0) and (y2 > 0) then o: =true;         if (x1 > 0) and (x2 > 0) and (y1 < 0) and (y2 < 0) then o: =true;         if o = true then write('true')        else write('false'); end.

Type   date = record       day: 1..31;       month: 1..12;           year: integer ;           end; var     a: date : = (day: 8; month: 7; year: 2012);   b: date : = (day: 6; month: 7; year: 2012);       c: integer; procedure outdate(d: date); begin   with d do writeln(day, '.', month, '.', year); end; begin if a.year > b.year then c: =1                      else c: =-1 ;                                           if a.year = b.year then                                          if   a.month > b.month then                                          c: =1                                                                     else c: =-1;                                                                         if a.year = b.year then                                                       if a.month = b.month then                                                           if a.day > b.day then c: =1                                                                             else c: =-1;   if a.year = b.year then                                                                   if a.month = b.month then                                                                       if a.day = b.day     then c: =0;                                                                                                                                                               outdate(a);                                                                                 outdate(b);                                                                                 writeln('otwet: ', c); end.