Запишите единицы измерения информации в порядке убывания 1кбайт, 1025 байт, 1 мбайт, 925 кбайт, 2 мбайт

2мб
1мб
925кб
1025байт
1кб

1.Сообщение может пополнить знания человека,если содержащиеся в нем сведения являются для человека новыми и понятными.
Вряд ли пополнит ваши знания, к примеру, такой вот текст, взятый, из математической энциклопедии: «Резонанс – явление увеличения амплитуды вынужденных колебаний при приближении частоты внешнего воздействия к одной из частот собственных колебаний динамической системы». Таким образом, информация понятна, если она выражена на языке доступном для получателя. Вместе с тем, совершенно понятное сообщение «Треугольник – фигура, имеющая три угла и три стороны» не расширяет ваши знания.Оно для вас неинформативно, хотя это же сообщение будет нести информацию для учеников 1 класса.;

program arrdiap;

var

 N, A, B, i: Integer;

 M: array of Integer;

begin

 Write ('Введите размерность массива: ');

 ReadLn (N);

 SetLength (M, N);

 Randomize;

 for i := Low (M) to High (M) do begin

   M [i] := Random (100);

   Write (M [i], ' ');

 end;

 WriteLn;

 Write ('Введите диапазон A, B: ');

 ReadLn (A, B);

 WriteLn;

 WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');

 for i := Low (M) to High (M) do begin

   if (M [i] >= A) and (M [i] <= B) then

     Write (M [i], ' ');

 end;

 ReadLn;

end.