Pagini recente » Monitorul de evaluare | Borderou de evaluare (job #2718056) | Borderou de evaluare (job #1192993) | Atasamentele paginii Profil Rickertaq80z | Cod sursa (job #823812)
Cod sursa(job #823812)
var fin,fout:text;
//s:string;
c:char;
cuv:longword;
lit,i:longword;
sant:boolean;
begin
assign(fin,'text.in'); reset(fin);
cuv:=0;
lit:=0;
sant:=true;
while eof(fin)=false do
begin
read(fin,c);
if ( (c>='a') and (c<='z') ) or
( (c>='A') and (c<='Z') ) then
begin
inc(lit);
if sant = true then
begin
inc(cuv);
sant:=false;
end;
end
else
sant:=true;
end;
//read(fin,s);
//write('-',s,'-');
if cuv <>0 then
lit:= lit div cuv
else
lit:=0;
close(fin);
assign(fout,'text.out'); rewrite(fout);
write(fout,lit);
close(fout);
end.