// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
function DecTo13(n:integer):string; begin var S:='0123456789ABC'; Result:=''; if n=0 then Result:='0' else while n>0 do begin Result:=S[n mod 13+1]+Result; n:=n div 13 end end;
begin Write(' '); for var i:=1 to 13 do Write(DecTo13(i):4); Writeln; Writeln(14*4*'-'); for var i:=1 to 13 do begin Write(DecTo13(i)+':':4); for var j:=1 to 13 do Write(DecTo13(i*j):4); Writeln end end.
Есть 2 варианта как ето делается изложить. 1. На самом языке java. 2. На русском языке.
т.к. java незнаю, попробую сделать удобно
мы перебираем массив по одному на сравнение с самым маленьким числом. А число возьмём из массива, с самого начала с первого элемента. То есть min = первый элемент массива если min не меньше чем массив [счётчик цикла], тоист первый, второй и такдалий тогда оно пусть является этим элементом. Если в дальнейшем найдется ещё меньше то min станет на каком шяс значений счетчик. Пробирая так весь массив через цикл в неём окажется самое по счёту где находится в массиве самое маленькое число. код примерно такой
for i = 1 до конца массива с шагом i=i+1 if min > массив[i] тогда min=i; иначе ничего не делаем
// Внимание! Если программа не работает, обновите версию!
function DecTo13(n:integer):string;
begin
var S:='0123456789ABC';
Result:='';
if n=0 then Result:='0'
else
while n>0 do begin
Result:=S[n mod 13+1]+Result;
n:=n div 13
end
end;
begin
Write(' '); for var i:=1 to 13 do Write(DecTo13(i):4); Writeln;
Writeln(14*4*'-');
for var i:=1 to 13 do begin
Write(DecTo13(i)+':':4);
for var j:=1 to 13 do Write(DecTo13(i*j):4);
Writeln
end
end.
Результаты - во вложениях.