Выбрать слова без "нн" и вывести их, разделяя одним пробелом
Program Strng; Uses CRT; Const fl = 'input.txt'; x = 'нн'; msg = 'Ни одного слова выбрать нельзя'; Var s, s1: String; i: Byte; f: text; flag: Boolean; Begin ClrScr; Assign(f, fl); ReSet(f); Readln(f, s); {Прочли строку из файла} For i := 1 to length(s) do Begin If (s[i] <> ' ') then s1 := s1 + s[i] else If (length(s1) > 0) then Begin If (Pos(x,s1)=0) then Begin Write(s1,' '); flag := True; End; s1 := ''; End; End; If (flag=False) then Writeln(msg); ReadKey; Close(f); End.
