Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите процедуру которая выводит на экран переданное ей число в системе счисления . которая задается вторым параметром (от 2 до 20)

Ответ оставил Гость

Function t10_q(x,q:longint):string;
const
  s=0123456789ABCDEFGHI;
var
  t,m:longint;
  r:string;
begin
  t:=x; r:=;
  while t>=q do
  begin
    m:=t mod q;
    r:=s[m+1]+r;
    t:=t div q
  end;
  t10_q:=s[t+1]+r
end;

{ тестирование }
var
  q,n:longint;
begin
  Write(Введите основание системы счисления (2-20): ); Readln(q);
  Write(Введите натуральное число для перевода: ); Readln(n);
  Writeln(n,(10)=,t10_q(n,q),(,q,))
end.

Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)