Cod sursa(job #1526070)
| Utilizator |  Grigore Viscun - Munteanu Viscun |
Data | 15 noiembrie 2015 21:39:26 |
|---|---|---|---|
| Problema | Text | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
program parfenie;
var f,g:text;sum,med:real;
a,b,c,medt:integer;
i,k1,k2,k:byte;
s:string;
begin
assign(f,'text.in');reset(f);
assign(g,'text.out');rewrite(g);
read(f,s);
for i:=1 to length(s) do if (s[i]='') or (s[i]='-')or (s[i]=',') then inc(k);
sum:=length(s);
med:=sum/k;
medt:=trunc(med);
write(g,medt);
close(f);
close(g);
end.
