Cod sursa(job #1571913)
| Utilizator |  Caliman Alexandru SaniokMDA |
Data | 18 ianuarie 2016 17:06:31 |
|---|---|---|---|
| Problema | Text | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
var s:string;
i,k,p,x:int64;
begin
k:=0;
p:=0;
assign(input,'text.in');
assign(output,'text.out');
reset(input);
rewrite(output);
read(s);
for i:=1 to length(s) do begin
if s[i]=' ' then k:=k+1 else p:=p+1;
end;
k:=k+1;
x:=trunc(p/k);
write(x);
end.