{ Данная функция возвращает представление десятичного Decimal в виде другой системы
счисления с основанием Base (в промежутке от 2 до 16) }
function DecToBase(Decimal: LongInt; const Base: Byte): String;
const
Symbols: String[16] = '0123456789ABCDEF';
var
scratch: String; remainder: Byte;
begin
scratch := '';
repeat
remainder := Decimal mod Base; scratch := Symbols[remainder + 1] + scratch;
Decimal := Decimal div Base;
until ( Decimal = 0 ); Result := scratch;
end;
Сейчас кино-продукция активно распространяется в интернете. Пользователи обмениваются фильмами в социальных сетях, рассказывают про них на блогах. Разумеется, не везде можно просто так скачать файл, но иногда все же можно скачать фильмы бесплатно без регистрации.