Cod sursa(job #53137)

Utilizator bogdan88Bogdan Popescu bogdan88 Data 21 aprilie 2007 10:40:16
Problema Text Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.63 kb
var s:char;
    fi,fo:text;
    ct,suma,ctcuv,rez:longint;
begin
     assign(fi,'text.in'); reset(fi);
     assign(fo,'text.out'); rewrite(fo);
     ct:=0; ctcuv:=0;
     while not eof(fi) do
        begin
             read(fi,s);
             if s in ['a'..'z','A'..'Z'] then inc(ct)
                                         else begin
                                                if ct>0 then inc(ctcuv);
                                                suma:=suma+ct;
                                                ct:=0; end;
        end;
     rez:=suma div ctcuv;
     writeln(fo,rez);
     close(fi); close(fo);
end.