Cod sursa(job #344841)
| Utilizator |  Cupsa Darius dcupsao |
Data | 31 august 2009 19:24:56 |
|---|---|---|---|
| Problema | Text | Scor | 50 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
var a:char;
i,j:longint;
f,g:text;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
while not eof(f) do
begin
read(f,a);
if (ord(a)>=97)and(ord(a)<=122) or (ord(a)>=60)and(ord(a)<=90) then inc(i);
if a=' ' then inc(j);
end;
write(g,i div (j+1));
close(f);
close(g);
end.