Cod sursa(job #426060)
Utilizator | Data | 26 martie 2010 13:19:59 | |
---|---|---|---|
Problema | Text | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.86 kb |
program litere;
uses crt;
var a:char;
nrl:longint;
nrc:word;
f,g:text;
k,o:boolean;
begin
assign(f,'text.in');
assign(g,'text.out');
reset(f);
rewrite(g);
nrc:=0;
nrl:=0;
o:=false;
k:=false;
while not eof(f)do
begin
read(f,a);
if (a in ['A'..'Z'])or(a in['a'..'z'])then
begin
nrl:=nrl+1;
o:=true;
k:=true;
end
else
if o then
begin
nrc:=nrc+1;
o:=false;
end;
end;
if o=false then
writeln(g,trunc(nrl/nrc))
else
if k then
writeln(g,trunc(nrl/(nrc+1)))
else
writeln(g,0);
close(f);
close(g);
end.