Cod sursa(job #2471009)

Utilizator silvian.gSilvian Gulica silvian.g Data 9 octombrie 2019 23:41:35
Problema Text Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.51 kb
Raporteaza aceasta sursa 
var s    : string;
    i, n,k,med_mr : integer;
    f, g : text;
BEGIN
 assign(f, 'text.in'); reset(f); assign(g, 'text.out'); rewrite(g);
 Readln(f, s); n := length(s); med_mr:=0;
 i := 1; k := 0;

 while i <= n do begin
  if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z'])  then inc(k)
  else if (k > 0) and (((s[i-1] in ['A'..'Z']) or (s[i-1] in ['a'..'z'])) or ((s[i+1] in ['A'..'Z']) or (s[i+1] in ['a'..'z']))) then inc(med_mr);  
  inc(i);
 end;
 Writeln(g, trunc(k/(med_mr)));
 close(f); close(g);
END.