Var
<span>d,
n: longint;
h:
string;
begin
write('n?
');
readln(n);
repeat
d
:= n mod 16;
if
d < 10 then
h
:= chr(ord('0') + d) + h
else
h
:= chr(ord('A') - 10 + d) + h;
n
:= n div 16;
until
n = 0;
<span>writeln(h,
'h');
end</span></span>
3425(двоич<span>ная - 110101100001),
</span>
10111011001001(дeсятич<span>ная - 11977),
</span>6ADC(троичная - <span>1101112012),
54366(двоич</span>но-дeсятичная - <span>1010111111100).</span>
<span>
</span>
ФУНКЦИЯ mod вычисляет остаток от деления. Если одно целое делится без остатка на второе, то оно кратно второму. Следовательно, верен ответ с.
Это загадка. Ответ: коньки.
Вроде так.