Cod sursa(job #57032)
Utilizator | Data | 30 aprilie 2007 22:20:02 | |
---|---|---|---|
Problema | Text | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.48 kb |
program p1;
var f,g:text;
c1,c2:char;
nrcuv,lungcuv:Longint;
meda:Longint;
begin
assign(f,'text.in'); reset(f);
assign(g,'text.out'); rewrite(g);
nrcuv:=0;
lungcuv:=0;
while not eof(f) do
begin
read(f,c1);
if ((c1>='a') and (c1<='z')) or ((c1>='A') and (c2<='Z')) then
if ((c2>='a') and (c2<='z')) or ((c2>='A') and (c2<='Z')) then lungcuv:=lungcuv+1
else nrcuv:=nrcuv+1;
c2:=c1;
end;
meda:=lungcuv div nrcuv;
writeln(g,meda);
close(f);
close(g);
end.