Системы счисления - Pascal ABC (12524)

Формулировка задачи:

Определите основы систем исчисления от двоичной до пьятнадцятковои, где число 2A16 в младшем разряде содержит цифру ноль.

Код к задаче: «Системы счисления - Pascal ABC (12524)»

textual
uses crt;
const digit:string[15]='0123456789ABCDE'; //цифры в СС от 2 до 15
{функция перевода Dec числа в сс 2-15
n-число в сс 10, r-система счисления в которую переводим}
function FromDec(n,r:integer):string;
var s:String;
begin
s:='';
repeat
s:=digit[(n mod r)+1]+s;
n:=n div r;
until n=0;
FromDec:=s;
end;
 
var ss:byte;
    n:longint;
begin
n:=$2A;
for ss:=2 to 15 do
if FromDec(n,ss)[length(FromDec(n,ss))]='0' then
writeln('CC ',ss,'=',FromDec(n,ss))
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 3.667 из 5


СДЕЛАЙТЕ РЕПОСТ