Cod sursa(job #584639)
Utilizator | Vlad Dimulescu vladvaldez | Data | 26 aprilie 2011 11:15:57 |
---|---|---|---|
Problema | Text | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.36 kb |
var l,cuv,s:longint;
c:char;
v:0..1;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
l:=0;
cuv:=0;
s:=0;
while not eoln(input) do begin
read(c);
if upcase(c) in ['A'..'Z'] then begin inc(l);v:=1;end
else if (l<>0)and(v=1) then begin inc(cuv);v:=0;end;
end;
s:=l div cuv;
write(s);
close(output);
end.