Напишите таблицу умножения в 13-ой системе счисления

Question

Напишите таблицу умножения в 13-ой системе счисления

Answer 1

// 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.

Результаты - во вложениях.

---

---