Строки

[5nizza77]

Прошу помочь.
Дана строка из нескольких слов, которые отделяются друг от друга пробелами. Вывести слова, задающие в виде строки целые числа (они могут быть и отрицательными). Например, для строки “аbс-90w 567u io ” должны быть выведены строки “-90”, “567”.

[Arigato]

Сообщение от 5nizza77

Дана строка из нескольких слов, которые отделяются друг от друга пробелами. Вывести слова, задающие в виде строки целые числа (они могут быть и отрицательными). Например, для строки “аbс-90w 567u io ” должны быть выведены строки “-90”, “567”.

Пример не корректен. Судя по условию, число должно быть словом, а не частью другого слова.

[Stilet]

Ну и что тут сложного?
Проходи себе по символам и определяй цифры это или нет

   var e,s:string;i:integer;
begin
 s:='аbс-90w 567u io';
 i:=1; while i<length(s) do begin
   if s[i] in ['-','0'..'9'] then e:=e+s[i] else begin
    write(e,' ');e:='';
   end;
  inc(i)
 end;
 Readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[NeshSoft]

Все так, только не будет работать если "-" будет в середине цифр (првпр88-554 ппр54 -45)
Тогда так:

var e,s:string;
     i:integer;
begin
s:='првпр88-554 ппр54 -45';
i:=1; 
while i<length(s) do 
    begin
    if s[i] in ['0'..'9'] then 
        begin
        if  (i-1)>1 then
           if s[i-1] ='-' then e:='-'; 
        e:=e+s[i] 
      else 
          begin
          write(e,' ');
          e:='';
          end;
    inc(i)
    end;
Readln;
end.

[5nizza77]

Момогите найти проблему.

var
e,s,a:string;
i,k:integer;
begin
  readln(s);
  i:=1;
  while i<=length(s)+1 do
    begin
      if s[i] in ['-','0'..'9',' '] then
      e:=e+s[i];
      i:=i+1;
    end;
  {i:=2;
  writeln(e);
  repeat

     while not (e[i] in [' ']) do
      begin
        if e[i] in ['-'] then
          if  (e[i+1] in [' ','-']) or (e[i-1] in ['-','0'..'9']) then e:='';
          inc(i);
      end;
      //inc(i);
  until i>length(e);
   // end ;
 // end;
              }

  i:=1;
  //writeln(e);
     k:=length(e)+1;
  while i<=k do
    begin
      if e[i] in ['-'] then
        if  (e[i+1] in [' ','-','0']) {or (e[i-1] in ['-','0'..'9']) }then e:='';
      if e[i] in ['-','0'..'9'] then
        if e[i+1] in [' '] then
      begin
       a:=a+e[i];
       a:=a+', ';
      end else
      a:=a+e[i];
      i:=i+1;
    end;
  writeln(a,'.');
  readln; 
end.