1 символ - 8 бит (то есть 1 байт)
16 символов - 128 бит (16 байт)
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>
А вывод очевиден и без выполнения этих бессмысленных операций: ты число, которое задумал, убираешь (вычитаешь) на 5-м шаге.
Var a, b: integer;
begin
read(a, b);
writeln(a+b);
writeln(IntToStr(a)+IntToStr(b))
end.
Объяснение:
15682= 10000+5000+600+80+2
