Разработать программу для перевода целых чисел из десятичной системы счисления в троичную и пятеричную. Перевод оформить в виде подпрограмм. Плииииз помогите
Разработать программу для перевода целых чисел из десятичной системы счисления в троичную и пятеричную. Перевод оформить в виде подпрограмм.
Плииииз помогите
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы