Cod sursa(job #2471005)
Utilizator | Silvian 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 |
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.