fork download
  1. program espresso;
  2. const MAXN = 20000;
  3. var N,i, ONE,TWO:integer;
  4. press :longint;
  5. S : array[1..MAXN] of string;
  6.  
  7. begin
  8. readln(N);
  9. for i:=1 to N do readln(S[i]);
  10. press:=0; ONE:=0; TWO:=0;
  11. for i:=1 to N do
  12. case S[i] of
  13. 'espresso' : ONE:=ONE+1;
  14. 'cappuccino' : ONE:=ONE+1;
  15. 'espresso - doppio' : TWO:=TWO+1;
  16. 'affogato' : TWO:=TWO+1;
  17. 'dead - eye' : begin ONE:=ONE+1; TWO:=TWO+1;end;
  18. 'irish - coffee' : TWO:=TWO+1;
  19. end;
  20. press:=press+(ONE+1) div 2 + TWO;
  21. writeln(press);
  22. end.
Success #stdin #stdout 0s 5308KB
stdin
3
espresso
espresso - doppio
cappuccino


stdout
2