Как перевести число из двоичной системы счисления в десятичную?

function BinToInt(BinString : string) : longint;
var
i : integer;
Num : longint;
begin
Num := 0;
for i := 1 to length(BinString) do
if BinString[i] = '1' then
Num := (Num shl 1) + 1 else
Num := (Num shl 1);
Result := Num;
end;

Поддержка сайта

Обязательно воспользуйтесь услугами очаровательных индивидуалок, каковые поделились сведениями о себе на страницах веб сайта prostitutki-omska.date. Сие допустит взнести в собственную житие многообразие.

Последние комментарии

  • удалите,пожалуйста! .
  • Падуя ИталияФетхиеСен-МалоАгландзияВаль д'ИзерХимкиЖигулевскКогалымРеспублика КалмыкияФетхиеКазахстан КостанайБуковельФару ПортугалияАланья ТурцияТемиртау КазахстанКазахстан КостанайКаламатаMoscowПодгорица ЧерногорияЯрославльНикарагуаЮжно-СахалинскБариУмм-эль-КайвайнАрмавирМарксYerevanСемейИталия...
  • Вы не правы. Я уверен. Давайте обсудим это. Пишите мне в PM, поговорим. ------ вложение денег в акции Если даже было, не срите в душу мне.. ------ дешевая накрутка просмотров инстаграм r?>/d 100% клево! Смотрю! ------ туя смарагд оптом Могу предложить Вам посетить сайт, на котором есть много...

Счетчики