// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 type Matrix=array[,] of integer;
procedure MatPrint(a:Matrix); begin var m:=Length(a,1)-1; for var i:=0 to Length(a,0)-1 do begin for var j:=0 to m do Write(a[i,j]:4); Writeln end end;
function IsEqual(a:Matrix; col:integer):boolean; begin var s:=sign(a[0,col]); for var i:=1 to Length(a,0)-1 do s+=sign(a[i,col]); if (s=0) then Result:=(a[0,col]<>0) else Result:=false end;
procedure DeleteCol(var a:Matrix; col:integer); begin var n:=Length(a,0)-1; var m:=Length(a,1)-1; for var j:=col+1 to Length(a,1)-1 do for var i:=0 to n do a[i,j-1]:=a[i,j]; SetLength(a,n+1,m) end;
begin var n:=ReadInteger('Строк:'); var m:=ReadInteger('Столбцов:'); var a:=MatrixRandom(n,m,-99,99); Writeln('Исходная матрица'); MatPrint(a); for var j:=Length(a,1)-1 downto 0 do if IsEqual(a,j) then DeleteCol(a,j); Writeln('Результирующая матрица'); MatPrint(a); end.
Исходное число 665675757 1)665675757:2=332837878 и в остатке 1 значит пишем 1 2)332837878:2=166418939 и в остатке 0 значит пишем 0 3)166418939:2=83209469 и в остатке 1 значит пишем 1 4)83209469:2=41604734 и в остатке 1 значит пишем 1 5)41604734:2=20802367 и в остатке 0 значит пишем 0 6)20802367:2=10401183 и в остатке 1 значит пишем 1 7)10401183:2=5200591 и в остатке 1 значит пишем 1 8)5200591:2=2600295 и в остатке 1 значит пишем 1 9)2600295:2=1300147 и в ост 1 зн пишем 1 10)1300147:2=650073 и в ост 1 зн пишем 1 11)650073:2=325036 и в ост 1 зн пишем 1 12)325036:2=162518 и в ост 0 зн пишем 0 13)162518:2=81259 и в ост 0 зн пишем 0 14)81259:2=40629 и в ост 1 зн пишем 1 15)40629:2=20314 и в ост 1 зн пишем 1 16)20314:2=10157 и в ост 0 зн пишем 0 17)10157:2=5078 и в ост 1 зн пишем 1 18)5078:2=2539 и в ост 0 зн пишем 0 19)2539:2=1269 и в ост 1 зн пишем 1 20)1269:2=634 и в ост 1 зн пишем 1 21)634:2=317 и в ост 0 зн пишем 0 22)317:2=158 и ост 1 зн пишем 1 23)158:2=79 и ост 0 зн пишем 0 24)79:2=39 и ост 1 зн пишем 1 25)39:2=19 и ост 1 зн пишем 1 26)19:2=9 и ост 1 зн пишем 1 27)9:2=4 и ост 1 зн пишем 1 28)4:2=2 и ост 0 зн пишем 0 29)2:2=1 и ост 0 зн пишем 0 30)1:2=0 и ост 1 зн пишем 1 число в двоичной системе 10110111110011010110101111001
А4 - относительная ссылка,
$А$4 - абсолютная ссылка
Объяснение: