Cod sursa(job #129298)
Utilizator | cazacu mihaela Myha3La | Data | 28 ianuarie 2008 21:49:49 |
---|---|---|---|
Problema | Text | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.56 kb |
var f,g:text;
cuv,s:string;
m:set of char;
i,su,nr:integer;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
read(f,s);
M:=['a'..'z']+['A'..'Z'];
i:=1;
su:=0;nr:=0;
while i<=length(s) do
begin
if not(s[i] in M) then inc(i)
else
begin
cuv:='';
while s[i] in M do
begin
cuv:=cuv+s[i];
inc(i);
end;
end;
nr:=nr+1;
su:=su+length(cuv);
end;
write(g,su div nr);
close(f);close(g);
end.