Вывести часть строки, которая находится между первым и последним пробелами - Turbo Pascal

Формулировка задачи:

Задана строка A. Вывести часть строки, которая находится между 1-ым и последним пробелами.

Код к задаче: «Вывести часть строки, которая находится между первым и последним пробелами - Turbo Pascal»

textual
var
  s: string;
  i, first, last: integer;
 
begin
  write('s = '); readln(s);
  first := 0; last := 0;
  for i := 1 to length(s) do
    if s[i] = ' ' then 
    begin
      if first = 0 then first := i;
      last := i;
    end;
  
  if first * last = 0 then writeln('В строке нет пробелов')
  else if first = last then writeln('В строке всего один пробел')
  else writeln('Часть строки между первым и последним пробелом: "' 
               + copy(s, first + 1, last - first - 1) + '"');
end.

12   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ