Question

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

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

procedure DecToP(n,p:integer);
{ Перевод из десятичной системы в систему по основанию p }
begin
  var s:='';
  while n>0 do begin
    s:=n mod p+s;
    n:=n div p
    end;
  Writeln(s)
end;

begin
  var (n,k):=ReadInteger2('Введите число и основание системы счисления:');
  if k.Between(2,10) then DecToP(n,k)
  else Writeln('Основание системы счисления вне [2;10]');
end.