Для передачи сообщения использовалась кодировка unicode (n= 65636). общение заняло 10 страниц, на каждой из которых 64 строки по 24 символа в каждой. каков информационный обьем сообщения? ответ дайте в килобайтах.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 uses GraphABC;
procedure OutLightGreen(n:integer); begin var OldColor:=FontColor; SetFontColor(clLightGreen); Write(n:5); SetFontColor(OldColor) end;
begin var a:=MatrixRandom(10,14,-180,320); var m:=ReadInteger('n='); Writeln; SetFontColor(clWhite); Font.Style:=fsBold; Font.Name:='Courier'; Brush.Color:=clBlack; Window.Clear(clBlack); var k:=0; for var i:=0 to 9 do begin for var j:=0 to 13 do if a[i,j]>m then begin Inc(k); OutLightGreen(a[i,j]) end else Write(a[i,j]:5); Writeln end; SetFontColor(clRed); Writeln('Количество элементов равно ',k) end.
-Без меня вообще невозможно. Иначе как можно было бы увидеть всё, что происходит в компьютере. Ясно дело. Я тут самый важный и главный.
Клавиатура возмущённо ответила:
-Как это так? С чего это ты взял, что главный тут ты? По моему я наиболее важная деталь. Как же вы без меня компьютером управлять будете? Получается я не заменимая и лучшая его часть.
Тут затороторила память, да так быстро, что никто нечего не понял.
-Так, стоп, -вмешался процессор, ну сколько можно? Процессор был очень мудрым и его всегда все слушались.
-Ваш спор настолько глуп, что смешно вас слушать. Нет главных деталей компьютера. Мы все с вами единственные и незаменимые. И только вместе состовляем единое целое.
После слов процессора все притихли и погрузились в работу, поняв что затеяли глупый спор.
uses GraphABC;
procedure OutLightGreen(n:integer);
begin
var OldColor:=FontColor;
SetFontColor(clLightGreen);
Write(n:5);
SetFontColor(OldColor)
end;
begin
var a:=MatrixRandom(10,14,-180,320);
var m:=ReadInteger('n=');
Writeln;
SetFontColor(clWhite);
Font.Style:=fsBold; Font.Name:='Courier';
Brush.Color:=clBlack; Window.Clear(clBlack);
var k:=0;
for var i:=0 to 9 do begin
for var j:=0 to 13 do
if a[i,j]>m then begin
Inc(k); OutLightGreen(a[i,j]) end
else Write(a[i,j]:5);
Writeln
end;
SetFontColor(clRed);
Writeln('Количество элементов равно ',k)
end.
Монитор говорит:
-Без меня вообще невозможно. Иначе как можно было бы увидеть всё, что происходит в компьютере. Ясно дело. Я тут самый важный и главный.
Клавиатура возмущённо ответила:
-Как это так? С чего это ты взял, что главный тут ты? По моему я наиболее важная деталь. Как же вы без меня компьютером управлять будете? Получается я не заменимая и лучшая его часть.
Тут затороторила память, да так быстро, что никто нечего не понял.
-Так, стоп, -вмешался процессор, ну сколько можно? Процессор был очень мудрым и его всегда все слушались.
-Ваш спор настолько глуп, что смешно вас слушать. Нет главных деталей компьютера. Мы все с вами единственные и незаменимые. И только вместе состовляем единое целое.
После слов процессора все притихли и погрузились в работу, поняв что затеяли глупый спор.