Cod sursa(job #57619)
Utilizator | Data | 2 mai 2007 18:31:21 | |
---|---|---|---|
Problema | Text | Scor | 70 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.53 kb |
program text1;
var a,b:char;
nrc,lg:longint;
f,g:text;
function litera(x:char):boolean;
begin
litera:=false;
if (x>='a')and(x<='z')or(x>='A')and(x<='Z') then litera:=true;
end;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
read(f,b);
lg:=0;
if litera(a) then lg:=1;
while not eof(f) do
begin
a:=b;
read(f,b);
if litera(b) then lg:=lg+1;
if litera(a)and not litera(b) then nrc:=nrc+1;
end;
writeln(g,trunc(lg/nrc));
close(f); close(g);
end.