Хто є керівником дистанційного навчального курсу? а) модератор б) координатор в) тьютор г) адміністратор

Хто є керевником дистанційного навчального курсу?
ответ В)

12

Объяснение:

Система счисления записи чисел с цифр;

Цифры - специальные знаки или символы для записи чисел;

Алфавит - набор цифр, используемые в системе счисления;

Основание - количество цифр в алфавите.

Алфавит каждой системы счисления начинается с нуля:

2-ая (основание) система счисления: 0, 1; (содержит две цифры)

3-ая (основание) система счисления: 0, 1, 2; (содержит три цифры)

4-ая (основание) система счисления: 0, 1, 2, 3; (содержит четыре цифры)

5-ая (основание) система счисления: 0, 1, 2, 3, 4; (содержит пять цифр)

6-ая (основание) система счисления: 0, 1, 2, 3, 4, 5; (содержит шесть цифр)

7-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6; (содержит семь цифр)

8-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6, 7; (содержит восемь цифр)

9-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6, 7, 8; (содержит девять цифр)

10-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9; (содержит десять цифр)

11-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A(10); (содержит одиннадцать цифр)

12-ая (основание) система счисления: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A(10), B(11); (содержит двенадцать цифр)

123, 4A(10)B(11), 9A(10)3, 8455

Находим наибольшие цифры в каждом числе

123, 4A(10)B(11), 9A(10)3, 8455

Находим наибольшую цифру среди всех чисел

3, B(11), A(10), 8

Наибольшая цифра = B(11) ⇒ минимальное основание = 12

Type
  TMatrix = array[,] of integer;
  TVector = array of integer;
var 
  A: TMatrix;
  B: TVector;
  m,n,i,j: integer;
  
procedure CreateMulVector(A:TMatrix; var B: TVector);
var i, j: integer; f: boolean;
begin
  SetLength(B, Length(A, 0));
  for i := 0 to Length(A, 0) - 1 do begin
    B[i] := 1; f := false;
    for j := 0 to Length(A, 1) - 1 do begin
      if A[i,j] > 0 then begin
        f := true;
        B[i] := B[i] * A[i,j];
      end;
    end;
    if not f then B[i] := 0;
  end;
end;

procedure WriteVector(B: TVector);
var i: integer;
begin
  for i := 0 to Length(B) - 1 do 
    write(B[i]:3);
end;

begin
  randomize;
  n := Random(10) + 1;
  m := Random(10) + 1;
  SetLength(A, n, m);
  writeln('Исходная матрица:');
  for i := 0 to n-1 do begin
    for j := 0 to m-1 do begin
      A[i,j] := Random(10) - 5;  
      write(A[i,j]:4);
    end;
    writeln;
  end;
  
  CreateMulVector(A, B);
  writeln('Полученный вектор:');
  WriteVector(B);
end.