1) Минимальное основание = 10
2) Минимальное основание = 5
3) Минимальное основание = 8
Объяснение:
Система счисления записи чисел с цифр;
Цифры - специальные знаки или символы для записи чисел;
Алфавит - набор цифр, используемые в системе счисления;
Основание - количество цифр в алфавите.
Алфавит каждой системы счисления начинается с нуля:
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; (содержит десять цифр)
1)
9, 122, 1100, 14
Находим наибольшие цифры в каждом числе
9, 122, 1100, 14
Находим наибольшую цифру среди всех чисел
9, 2, 1, 4
Наибольшая цифра = 9 ⇒ минимальное основание = 10
2)
100, 112, 1004, 4444
Находим наибольшие цифры в каждом числе
100, 112, 1004, 4444
Находим наибольшую цифру среди всех чисел
1, 2, 4
Наибольшая цифра = 4 ⇒ минимальное основание = 5
3)
11, 7, 12, 222, 102
Находим наибольшие цифры в каждом числе
11, 7, 12, 222, 102
Находим наибольшую цифру среди всех чисел
1, 7, 2
Наибольшая цифра = 7 ⇒ минимальное основание = 8
program array_k;
var k, n: integer;
var a: array[1..15, 1..15] of integer;
begin
writeln('Задайте порядок матрицы n (0 < n < 15)');
readln(n);
writeln('Задайте число k (0 < k < n)');
readln(k);
for m: integer := 1 to n do
begin
writeln;
for o: integer :=1 to n do
begin
a[m, o] := random(30) + 1;
//+1 - чтобы избежать деления на ноль
write(a[m, o] : 5, ' ')
end
end;
writeln;
for m: integer := 1 to n do
begin
writeln;
for o: integer := 1 to n do
if m = k then write(a[m, o]/a[k, k] : 5 : 2, ' ')
else write(a[m, o] : 5, ' ');
end
end.
