Cod sursa(job #1590275)
| Utilizator |  Caliman Alexandru SaniokMDA |
Data | 4 februarie 2016 20:41:42 |
|---|---|---|---|
| Problema | Text | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var n,i,k:longint;
s:string; x,y:real;
begin
assign(input,'text.in');
assign(output,'text.out');
reset(input);
rewrite(otput);
x:=0; y:=0;
read(s);
for i:=1 to length(s) do
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then x:=x+1 else y:=y+1;
//if s[i]=' ' then y:=y+1;
n:=trunc(x/y);
write(n);
end.