Cod sursa(job #2471005)

Utilizator silvian.gSilvian Gulica silvian.g Data 9 octombrie 2019 23:33:01
Problema Text Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.39 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 inc(med_mr); 
  inc(i);
 end;
 
 Writeln(g, round(k/(med_mr+1)));
 close(f); close(g);
END.