Cod sursa(job #1604102)

Utilizator Ion1998Ion Gzun Ion1998 Data 17 februarie 2016 22:53:01
Problema Text Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
Program n1;
var i,s,l:integer;
    c: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=' ' then inc(s);
     end;
  close(f);
  assign(f,'text.out');rewrite(f);
  write(f,l div s+1);
  close(f);
END.