Строки

[vavanos]

помогите решить пожалуйста.найти в строке(слова разделенные пробелами) первое слово внутри которого есть хотя бы одна цифра.

[Sheka]

Код: Выделить всё

procedure zzz;
var
  f:text; c:char; s:string; b:boolean;
begin
assign(f,'f1.txt');
reset(f);
s:='';
b:=false;
while not eof(f) do  begin
  read(f,c);
  if c in [#48..#57,#64..#90,#95..#96,#97..#122,#128..#175,#224..#249] then begin
  s:=s+c;
  if c in [#48..#57] then b:=true;
  end;  
  else
    begin
    if (b=true) then
      begin
      writeln(s);
      readln;
      exit;
      end;
    s:='';
    end;
  end;
close(f);
end;

Писал "на коленях", так что, если что - извините.

[BBB]

vavanos, ищи на форуме "разбиение строки на слова". Кажется, в разделе алгоритмы.
Выделив слово, найти в нем символ цифры уже элементарно.

[Sheka]

//.......//

[Naeel Maqsudov]

Прекратиите личную переписку! Все отношения выясняются не публично, а в личке или в публичных сообщениях в профиле.

PS
На любую задачу каждый имеет дать право содердательный комментарий, ссылку или подсказку где/как найти решение. И это не означает что предыдущие решения не годятся, если последнее не указано явно.

PPS
Публичное комментирование данного сообщения также запрещено