Строки (PascalABC.NET)

Строки

• Строки

 1 Begin
 2   var binStr := '101001';  
 3   
 4   var multiplier := 1;
 5   var dec := 0;
 6   
 7   for var i := binStr.Length downto 1 do
 8   begin
 9     if (binStr[i] = '1') then
10       dec += multiplier;
11     multiplier *= 2;
12   end;
13   
14   Writeln(binStr);
15   Writeln(dec.toString());
16 end.

Задачник

• Строки