Cod sursa(job #344841)

Utilizator dcupsaoCupsa 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
Raporteaza aceasta sursa 
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.