Cod sursa(job #168117)
Utilizator | Postelnicu Dan Marian kolapsys | Data | 30 martie 2008 19:50:09 |
---|---|---|---|
Problema | Text | Scor | 90 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.82 kb |
{ http://infoarena.ro/problema/text }
var f,g:text;
nrcuv,lungcuv:longint;
c:char;
q:boolean;
begin
assign(f,'text.in'); reset(f);
assign(g,'text.out'); rewrite(g);
nrcuv:=0; lungcuv:=0;
q:=false;
while not(eof(f)) do
begin
read(f,c);
if c in ['A'..'z'] then begin
lungcuv:=lungcuv+1;
q:=true;
end
else if q then begin
nrcuv:=nrcuv+1;
q:=false;
end;
end;
if c in ['A'..'z'] then nrcuv:=nrcuv+1;
write(g,trunc(lungcuv/nrcuv));
close(f); close(g);
end.