比赛代码 - COGS

比赛	20120707	评测结果	AWWWWAAWWW
题目名称	表达式游戏	最终得分	30
用户昵称	fuhao	运行时间	0.003 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2012-07-07 11:13:28

显示代码纯文本

var
 i,ch:char; num:array['!'..'z'] of longint;
 opt:longint;
begin
 assign(input,'expression.in'); reset(input);
 assign(output,'expression.out'); rewrite(output);
 while not eoln do
  begin
   read(ch);
   inc(num[ch]);
  end;
 for i:='!' to 'z' do
  if num[i]<>0 then inc(opt);
 writeln(opt);
 close(input); close(output);
end.