Поделиться
контрольная работа 19.02.2020.docx
Контрольная работа
№1. Функция возвращает: 654321
№2.
procedure DecToP(n,p:integer);
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.
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
