Автор: Bronislav

Bronislav — Wed, 27 Jun 2018 10:34:34 +0000

//PascalABC.NET
begin
  var s := 'Hello PascalABC.NET ';
  var i := Pos(' ', s);

  write(Copy(s, i + 1, Pos(' ', s, i + 1) - (i + 1)));
  
end.

//PascalABC.NET

begin

var s := 'Hello PascalABC.NET ';

var i := Pos(' ', s);

write(Copy(s, i + 1, Pos(' ', s, i + 1) - (i + 1)));

end.

Я не вполне понимаю, как это работает в PascalABC.NET, но это работает. Например если строка содержит единственный пробел последним символом, то почему не происходит ошибки выхода индекса за пределы диапазона строки в Pos(‘ ‘, s, i + 1), если, например, в Pos(‘ ‘, s, i + 2) уже выдает такую ошибку.

Комментарии: Решаем задачи Абрамян на Паскале. String39

Автор: Bronislav