Pagini recente » Cod sursa (job #678460) | Rezultatele filtrării | Cod sursa (job #1996472) | Cod sursa (job #1497949) | Cod sursa (job #2471005)
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.