{ Данная функция возвращает представление десятичного
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;
Сейчас кино-продукция активно распространяется в интернете. Пользователи обмениваются фильмами в социальных сетях, рассказывают про них на блогах. Разумеется, не везде можно просто так скачать файл, но иногда все же можно скачать фильмы бесплатно без регистрации.