Cod sursa(job #344838)
| Utilizator |  Cupsa Darius dcupsao |
Data | 31 august 2009 19:17:02 |
|---|---|---|---|
| Problema | Text | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
var a:char;
i,j:longint;
f,g:text;
begin
assign(f,'text.in');
reset(f);
assign(g,'text.out');
rewrite(g);
while not eof(f) do
begin
read(f,a);
if a<>' ' then inc(i)
else inc(j);
end;
write(g,i div j);
close(f);
close(g);
end.