Cod sursa(job #1331272)

Utilizator dex4Darjan Catalin dex4 Data 31 ianuarie 2015 14:56:32
Problema Text Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var lit:set of char;
    S:String;
    ma,nrc,nrt,i:Integer;
    f,g:Text;
Begin
lit:=['a'..'z','A'..'Z'];
Assign(f,'text.in');reset(f);
readln(f,S);
i:=1;
while i<=length(S) do
  begin
  if S[i] in lit then
    inc(nrt)
  else
    if S[i+1] in lit then
      inc(nrc);
  inc(i);
  end;
ma:=nrt DIV nrc;
writeln(ma);
readln;
end.