Строки (PascalABC.NET)

Материал из Информационная безопасностя
Перейти к навигации Перейти к поиску

Строки

 1 Begin
 2   var binStr := '101001';  
 3   //var binStr := ReadString('Введите число в бинарной системе счисления:');
 4   
 5   var multiplier := 1;
 6   var dec := 0;
 7   
 8   for var i := binStr.Length downto 1 do
 9   begin
10     if (binStr[i] = '1') then
11       dec += multiplier;
12     multiplier *= 2;
13   end;
14   
15   Writeln(binStr);
16   Writeln(dec.toString());
17 end.

Задачник