Напишите процедуру, которая выводит на экран переданное ей число в системе счис-ления, которая задается вторым параметром (от 2 до 10). Помогите срочно!
contrlc:
Число задано в 10сс?
Ответы
Ответ дал:
3
// 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.
// Внимание! Если программа не работает, обновите версию!
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.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад
7 лет назад