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

ostlena50 ostlena50    1   20.09.2019 07:40    8

Ответы
Aleksey8b Aleksey8b  04.08.2020 12:27
// 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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика