Question

Разработать программу для перевода целых чисел из десятичной системы счисления в троичную и пятеричную. Перевод оформить в виде подпрограмм.

Плииииз помогите

Answer 1

function to_base(n: integer; base: integer): integer;
begin
  if n = 0 then
    to_base := 0
  else
    to_base := (n mod base) + 10 * to_base(n div base, base);
end;

var
  n: integer;
begin
  readln(n);
  writeln(to_base(n, 3));
  writeln(to_base(n, 5));
end.