Pascal. Задача 4-12

Пользователь вводит основание системы счисления (1 < q < 10) и число. Перевести введенное число в q-ую систему счисления.

Решение

Const
  N = 60;
var
  number, digits : int64;
  i, cnt, q : integer;
  A : array[1..N] of integer;
begin
  write('Введите основание системы счисления 1 < q < 10: ');
  read(q);
  write('Введите число: ');
  read(number);
  digits := number;
  cnt := 0;
  while digits > 0 do begin
    Inc(cnt);
    A[cnt] := digits mod q;
    digits := digits div q;
  end;
  write(number, ' в ', q, '-ой системе счисления: ');
  for i := cnt downto 1 do write(A[i]);
end.