Program asd;
Const
N=15;
M=15;
Var
l:array [1..15,1..15] of integer;
min,i,j,k,k1:integer;
Begin
min:=l[1,1];
Writeln('Введите элементы матрицы:');
For i:=1 to n do
For j:=1 to m do
Begin
Write('L[',i,',',j,']=');
Readln(l[i,j]);
If l[i,j]<min then begin min:=l[i,j]; k:=i; k1:=j; end;
End;
Writeln('Минимальный элемент L[',k,',',k1,']= ',min);
End.
Проще всего складывать в столбик как обычные десятичные числа, но если в сумме число получится больше 8 (система восмиричная), то мы отнимаем 8, смотрим: меньше ли получившийся остаток 8, если нет, то снова отнимаем восемь и тогда записываем остаток, а в "ум" запишем число отнятых восьмерок
574+467=1263 (все числа в восьмиричной системе счисления)
так, складывая 4 и 7, получаем 11, что больше 8, поэтому отняв 8, получим цифру 3, которую и записываем как последнюю цифру числа (3 пишем, 1 в уме), далее складываем 6 и 7 и не забываем про 1, потому что в прошлый раз мы отняли всего одну восьмерку, получаем 14, но записываем только 6, а 1 в уме, затем 5, 4 и 1 - 2 пишем, 1 в уме, далее просто приписываем единицу, получаем 1263
P.S. несмотря на то, что кажется сложно, это немногим отличается от десятичной системы сложения в столбик
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadlnString.ToLower.Contains('кот') then Print('МЯУ')
else Print('ГАВ')
end.
<h2>Примеры</h2>
Извините, пожалуйста, вы не подскажете, который час?
МЯУ
Кто я? кто
ГАВ
<span>4+3=7*2=14*2=22*2=44+3=47
Ответ: 21112
</span>
ответ будет таковым 1101011 = 107
