Ответ:
Объяснение:
BMP - без уплотнения
GIF - алгоритм LZW
JPEG - алгоритм RLE, дискретно-косинусное преобразование
PCX - алгоритм RLE
PNG - алгоритм LZ77, кодирование Хаффмана (алгоритм Deflate)
PSD - алгоритм RLE, кодирование Хаффмана
Const n=4;
<span> m=3;
</span><span>var a: array[,] of integer;
</span><span> b: array of integer;
</span><span> i,j,k: integer;
</span><span>begin
</span><span> setlength(b,n*m);
</span><span> setlength(a,n,m);
</span><span> randomize;
</span><span> writeln('исходный массив:');
</span><span> for i:=0 to n-1 do
</span><span> begin
</span><span> for j:=0 to m-1 do
</span><span> begin
</span><span> a[i,j]:=random(-10,10);
</span><span> write(a[i,j]:4);
</span><span> end;
</span><span> writeln;
</span><span> end;
</span><span>// удаление строк массива
</span><span> k:=0;
</span><span> for i:=0 to n-1 do
</span><span> if a[i,0]<=a[i,m-1] then
</span><span> begin
</span><span> k:=k+1;
</span><span> for j:=0 to m-1 do
</span><span> b[(k-1)*n+j]:=a[i,j];
</span><span> end;
</span><span>// печать нового массива
</span><span> writeln('новый массив:');
</span><span> setlength(a,k,m);
</span><span> for i:=0 to k-1 do
</span><span> begin
</span><span> for j:=0 to m-1 do
</span><span> begin
</span><span> a[i,j]:=b[i*n+j];
</span><span> write(a[i,j]:4);
</span><span> end;
</span><span> writeln;
</span><span> end;
</span><span>end.
</span>исходный массив:
<span> -3 5 -5
</span><span> 2 3 5
</span><span> -8 3 -2
</span><span> 3 -4 -7
</span><span>новый массив:
</span><span> 2 3 5
</span><span> -8 3 -2
</span><span>
</span>
<span>
</span>
T = n mod 10; if (n mod t = 0) then writeln(t);
t = n div 10 mod 10; if (n mod t = 0) then writeln(t);
t = n div 100 mod 10; if (n mod t = 0) then writeln(t);
t = n div 1000 mod 10; if (n mod t = 0) then writeln(t);
var
n:integer;
begin
write('n = '); readln(n);
if (n div 100) = (n mod 10) then
writeln('Перевертыш')
else
writeln('Нет');
readln;
end.
