Cod sursa(job #1604104)

Utilizator Ion1998Ion Gzun Ion1998 Data 17 februarie 2016 22:56:31
Problema Text Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
Program n1;
var i,s,l:integer;
    c,u:char;
    f:text;

BEGIN
  assign(f,'text.in');reset(f);
  while not eof(f) do
    while not eoln(f) do
     begin
      read(f,c);
      inc(l);
      if (c<>' ') and (u=' ') then inc(s);
      u:=c;
     end;
  close(f);
  assign(f,'text.out');rewrite(f);
  write(f,l div s);
  close(f);
END.