Pagini recente » Cod sursa (job #719146) | Rezultatele filtrării | Istoria paginii runda/fminostress3-nefacute/clasament | Cod sursa (job #453782) | Cod sursa (job #557715)
Cod sursa(job #557715)
program doi;
var nrc,lung,n:longint;
f,t:text;
x:char;
begin
assign(f,'text.in');
reset(f);
nrc:=0;lung:=0;
while not seekeof(f) do
begin
read(f,x);
if upcase(x) in ['A'..'Z','0'..'9'] then
begin
inc(lung);
if n=0 then inc(nrc);
n:=1;
end
else n:=0;
end;
close(f);
{---------------}
assign(t,'text.out');
rewrite(t);
write(t,lung div nrc);
close(t);
end.