Сколько мегабайт информации содержит сообщение объемом 2 в 32 степени бит?

переведем в начале 2^32 бит в байты.

в 1 байте 2^3 бит

следовательно

2^32 (бит)=2^32*2^(-3)=2^29 (байт)

в 1 кбайте =1024 байт=2^10 байт

следовательно

2^29(байт)=2^29*2^(-10)=2^19 (кбайт)

в 1мбайте =1024 кбайт

следовательно

2^19(кбайт)=2^19*2(-10)=2^9 =512 (мбайт)

ответ 512 (мбайт)

program pryam;

var y1, y2, y3, x1, x2 : real;

begin

  writeln ('введите координату (у) верхней точки прямой');

  readln (y1);

  writeln ('введите координату (у) нижней точки прямой');

  readln (y2);

  writeln ('введите координату (х) точек-концов прямой');

  readln (x1);

  writeln ('введите координату (у) точки, принадлежность к прямой которой нужно определить');

  readln (y3);

  writeln ('введите координату (х) точки, принадлежность к прямой которой нужно определить');

  readln (x2);

if (y3< =y1) and (y3> =y2) and (x2=x1) then writeln (' принадлежит ')

else writeln (' не принадлежит ');

readln;

end.

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.