Строки (PascalABC.NET): различия между версиями
Перейти к навигации
Перейти к поиску
(→Строки) |
|||
| Строка 4: | Строка 4: | ||
Begin | Begin | ||
var binStr := '101001'; | var binStr := '101001'; | ||
| + | //var binStr := ReadString('Введите число в бинарной системе счисления:'); | ||
var multiplier := 1; | var multiplier := 1; | ||
Версия 10:40, 9 июня 2021
Строки
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.