Pagini recente » Borderou de evaluare (job #2734778) | Borderou de evaluare (job #562329) | Rezultatele filtrării | Profil CalinTanasie | Cod sursa (job #20411)
Cod sursa(job #20411)
const litere=['A'..'Z','a'..'z','0'..'9'];
var prop:string;
i,t,c,l,t2:longint;
begin
assign(input,'text.in');reset(input);
assign(output,'text.out');rewrite(output);
readln(prop);t2:=length(prop);
while i<t2 do begin
inc(i);
if ((prop[i]) in litere) then inc(l)
else begin if (prop[i-1]<>' ') then inc(c);
while not(prop[i+1] in litere)do
inc(i);
end;
end;
writeln(l div c);
close(input);close(output);
end.