Принтер-это устройство вывода текстовой и графической информации из персонального компьютера на бумажный носитель. В современных моделях принтеров существует возможность вывода информации на какой-либо другой носитель, например синтетическая пленка.
// PascalABC.NET 3.3
begin
var a := ArrRandomInteger(10); a.Sort;
var b := ArrRandomInteger(10); b.Sort;
var c := new integer[20];
writeln('Array 1:'); a.println;
writeln('Array 2:'); b.println;
var i := 0;
var j := 0;
var k := 0;
while (i < 10) and (j < 10) do
begin
if a[i] < b[j] then
begin
c[k] := a[i];
i := i + 1;
end else begin
c[k] := b[j];
j := j + 1;
end;
k := k + 1;
end;
while i < 10 do
begin
c[k] := a[i];
i := i + 1;
k := k + 1;
end;
while j < 10 do
begin
c[k] := b[j];
j := j + 1;
k := k + 1;
end;
writeln('Merged array:'); c.println;
end.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8
Палитра 512 цветов=2**9=>глубина цвета 9 бит.
36Кб=36*8*1024=294912 бит
Объем изображения=Размер изображения *на глубину цвета=>294912=256*a*9=>a=128