Cod sursa(job #368405)
Utilizator | Dogaru Beniamin benny | Data | 24 noiembrie 2009 20:40:33 |
---|---|---|---|
Problema | Text | Scor | 40 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.52 kb |
program litere;
uses crt;
var a:char;
nrl,i:longint;
nrc:word;
f,g:text;
begin
assign(f,'text.in');
assign(g,'text.out');
reset(f);
rewrite(g);
nrc:=1;
nrl:=0;
repeat
read(f,a);
if (a in ['A'..'Z'])or(a in['a'..'z'])then
nrl:=nrl+1
else
if (a=' ')or(a='-')or(a='+')or(a='*')or(a='/') then
nrc:=nrc+1;
until eof(f);
writeln(g,trunc(nrl/nrc));
close(f);
close(g);
end.