Cod sursa(job #1141364)
Utilizator | Data | 12 martie 2014 20:27:46 | |
---|---|---|---|
Problema | Text | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.58 kb |
Program a1;
var i,o:text;
cuv,lit,med:integer;
c:char;
begin
cuv:=0;
lit:=0;
assign(i,'text.in');
assign(o,'text.out');
reset(i);
rewrite(o);
while not EOF(i) do
begin
read(i,c);
if c in ['A'..'a'] then
begin
inc(cuv);
while c in ['A'..'a'] do
begin
inc(lit);
read(i,c);
end;
end;
end;
write(o,lit div cuv);
close(i);
close(o);
end.