Cod sursa(job #385864)
Utilizator | Rosu Alexandru axel96 | Data | 23 ianuarie 2010 17:29:01 |
---|---|---|---|
Problema | Text | Scor | 30 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.49 kb |
const separatori=[' ',',','!','?','.',';'];
var s:string;
i,nr,nrl:integer;
f:text;
begin
assign(f,'text.in');
reset(f);
read(f,s);
close(f);
nr:=1;
For i:=1 to length(s) Do
begin
IF not (s[i] in separatori) THEN
nrl:=nrl+1 else
IF not (s[i-1] in separatori) THEN
nr:=nr+1;
end;
assign(f,'text.out');
rewrite(f);
writeln(f,nrl/nr:0:2);
close(f);
readln;
end.