Строки (PascalABC.NET)
Версия от 07:32, 11 июня 2021; Безуглов Сергей (обсуждение | вклад)
Строки
Задачник
24
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.