Строки (PascalABC.NET)

Строки

• Строки

 1 Begin
 2   var ch:char := '0';
 3   Writeln($'Код символа {ch} = {ord(ch)}');
 4   
 5   var code := 55;
 6   Writeln($'Cимвол с кодом {code} = {chr(code)}');
 7   
 8   var str:string = 'Hello';  
 9   Writeln($'Длинна строки {str} = {str.Length}');
10   var hasl := str.Contains('l');
11   Writeln($'Строка {str} содержит букву l = {hasl}');
12   var hasz := str.Contains('z');
13   Writeln($'Строка {str} содержит букву z = {hasl}');
14   var indexl := str.IndexOf('l');
15   Writeln($'В строке {str} индекс буквы l = {indexl}');
16   var indexz := str.IndexOf('z');
17   Writeln($'В строке {str} индекс буквы z = {indexz}');  
18 end.

Задачник

• Строки

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.