Автор: Bronislav

Bronislav — Thu, 08 Nov 2018 21:04:32 +0000

program Param40;//pabc.net

function WordK(s: string; k: integer): string;
begin
  Result := '***';//по условию пустая строка
  if k < 1 then exit;
  var WordCount := 0;
  
  var i := 1;
  while i <= s.Length do
  begin
    if s[i] <> ' ' then
    begin
      WordCount += 1;
      var j := i;
      while (j < s.Length) and (s[j + 1] <> ' ') do inc(j);
      if WordCount = k then
      begin
        result := Copy(s, i, j - i + 1);
        exit
      end;
      i := j + 1;
    end;
    i += 1
  end
end;

begin
  var s := 'Каждый, охотник; желает? знать: "где сид''ит", ,фазан! ';
  for var i := 0 to 8 do WordK(s, i).Println;
  //  ***
  //  Каждый,
  //  охотник;
  //  желает?
  //  знать:
  //  "где
  //  сид'ит",
  //  ,фазан!
  //  ***
end.

program Param40;//pabc.net

function WordK(s: string; k: integer): string;

begin

Result := '***';//по условию пустая строка

if k < 1 then exit;

var WordCount := 0;

var i := 1;

while i <= s.Length do

begin

if s[i] <> ' ' then

begin

WordCount += 1;

var j := i;

while (j < s.Length) and (s[j + 1] <> ' ') do inc(j);

if WordCount = k then

begin

result := Copy(s, i, j - i + 1);

exit

end;

i := j + 1;

end;

i += 1

end

end;

begin

var s := 'Каждый, охотник; желает? знать: "где сид''ит", ,фазан! ';

for var i := 0 to 8 do WordK(s, i).Println;

// ***

// Каждый,

// охотник;

// желает?

// знать:

// "где

// сид'ит",

// ,фазан!

// ***

end.

program Param40;//pabc.net

function WordK(s: string; k: integer): string;
begin
  Result := '***';
  var b := s.ToWords(',', ' ', '!', ':', ';', '?', '.', '"');
  if (k < b.Count) and (k >= 0) then Result := b[k]
end;

begin
  var s := ' каждый, охотник; желает? знать: "где сид''ит", ,фазан!  ';
  
  for var i := -1 to 7 do WordK(s, i).Println
  //  ***
  //  каждый
  //  охотник
  //  желает
  //  знать
  //  где
  //  сид'ит
  //  фазан
  //  ***
end.

program Param40;//pabc.net

function WordK(s: string; k: integer): string;

begin

Result := '***';

var b := s.ToWords(',', ' ', '!', ':', ';', '?', '.', '"');

if (k < b.Count) and (k >= 0) then Result := b[k]

end;

begin

var s := ' каждый, охотник; желает? знать: "где сид''ит", ,фазан! ';

for var i := -1 to 7 do WordK(s, i).Println

// ***

// каждый

// охотник

// желает

// знать

// где

// сид'ит

// фазан

// ***

end.

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

Автор: Bronislav