Cod sursa(job #162583)
Utilizator | Miana Arisanu miana | Data | 20 martie 2008 12:26:37 |
---|---|---|---|
Problema | Text | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.6 kb |
const litere:set of char=['a'..'z','A'..'Z'];
var f:text; c:char; n,t:longint; inceput:boolean;
begin
assign(f,'text.in');reset(f);
repeat
read(f,c);
if (c in litere) and not(inceput)then begin
inc(n);
inc(t);
inceput:=true;
end
else if inceput and (c in litere) then inc(T)
else inceput:=false;
until eof(f);
close(f);
assign(f,'text.out');
writeln(f,t div n);
close(f);
end.