Cod sursa(job #799827)
| Utilizator |  Pasca Razvan BritR |
Data | 20 octombrie 2012 10:21:54 |
|---|---|---|---|
| Problema | Text | Scor | 70 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var s:char; n,t,i,m,j:integer;f,g:text;
begin
assign (f,'text.in');reset(f);
assign (g,'text.out');rewrite(g);
repeat
read (f,s); t:=ord(upcase(s));
if (t>=65) and (t<90) then begin n:=n+1;
if i=0 then m:=m+1; i:=1;end else i:=0;
until eof(f);
write (g,n div m);
close(f);close(g);
end.
