Re: Задачка для ПАСКАЛЯНТОВ! Опции

[trminator]

Примерно так

Код

PROGRAM FindTown;
var input:text;
     s,Find:string;
begin
 assign(input,'c:bpworkinput.txt');
 reset(input);
 ReadLn(Find);
 While not EOF(input) do
   begin
    ReadLn(input,s);
    if pos(Find,s)<>0 then {Если нужно не любое совпадение, а именно с начала, то кажется =1}
       WriteLn(s)
   end;
 close(input)
end.

Сообщение отредактировано: volvo - 17.12.2004 14:26