Cod sursa(job #738615)
| Utilizator |  Astalas Paul paul777 |
Data | 21 aprilie 2012 09:03:09 |
|---|---|---|---|
| Problema | Text | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
var x,y,z,n:integer;f,g:text;w:char;
begin
assign(f,'text.in');reset(f);assign(g,'text.out');rewrite(g);x:=0;y:=0;z:=0;
repeat
read(f,w);n:=ord(upcase(w));
if (n>=65)and(n<=90)then begin x:=x+1;
if y=0 then inc(z);y:=1;end else y:=0;
until eof(f);
write(g,x div z);close(f);close(g);end.
