Cod sursa(job #1824531)
| Utilizator |  Nicolae Varticean Varticean |
Data | 7 decembrie 2016 22:46:52 |
|---|---|---|---|
| Problema | Text | Scor | 40 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.32 kb |
var f,g:text;
c:char; k,p,med:integer;
s:string;
begin
assign(f,'text.in');
assign(g,'text.out');
reset(f);
rewrite(g); p:=1;
while not eoln(f) do
begin
read(f,c);
if (ord(c)>65) and (ord(c)<122) then inc(k) else if (c=' ')or (c='-') then inc(p);
end;
med:=k div p;
write(g,med);
close(f);
close(g);
end.
