Строки (PascalABC.NET): различия между версиями
Перейти к навигации
Перейти к поиску
(→Строки) |
|||
| Строка 1: | Строка 1: | ||
== Строки == | == Строки == | ||
* [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Types/string.html Строки] | * [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Types/string.html Строки] | ||
| + | |||
| + | == Задачник == | ||
| + | * [http://ptaskbook.com/ru/tasks/string.php Строки] | ||
| + | |||
| + | === 24 === | ||
<syntaxhighlight lang="pascal" line> | <syntaxhighlight lang="pascal" line> | ||
Begin | Begin | ||
| Строка 20: | Строка 25: | ||
end. | end. | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
Версия 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.