SHARE
TWEET

ворд лен к

a guest Jan 11th, 2017 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program wordlwordlenk;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. var
  9. s,ps,s1:ansistring;
  10. f,q:text;
  11. i:LongInt;
  12. k,met:int64;
  13. begin
  14.   Assign(f,'input.txt');
  15.   Reset(f);
  16.   Assign(q,'output.txt');
  17.   Rewrite(q);
  18.   Readln(f,k);
  19.   i:=1;
  20.   met:=1;
  21.   while not(eof(f)) do
  22.   begin
  23.      readln(f,s);
  24.      i:=1;
  25.      for i:=1 to length(s) do
  26.        begin
  27.          if not(s[i] in[ '.' , ',' , ';' , ':' , '?' , '!' , ' ' ]) then
  28.          begin
  29.              ps:=ps+s[i];
  30.                  met:=1;
  31.          end
  32.          else
  33.          begin
  34.              if (met=1) and (length(ps)=k) and (i mod 2=1) then
  35.              begin
  36.                  s1:=s1+ps+' ';
  37.                  met:=0;
  38.                end;
  39.              ps:='';
  40.          end;
  41.      end;
  42.      if length(s1)=0 then Writeln(q,'-1')
  43.      else  Writeln(q,s1);
  44.      s1:='';
  45.      ps:='';
  46.   end;
  47.   Close(f);
  48.   Close(q);
  49. end.
RAW Paste Data
Top