NOIP2008提高组解题报告

1、 word

这道题完全是送分题，只需要直接统计，再判断素数。

参考程序：

var

st:string;

max,min,i:longint;

a:array['a'..'z']of longint;

ch:char;

function fun(n:longint):boolean;

var i:longint;

begin

if n<2 then begin fun:=false;exit;end;

for i:=2 to n-1 do

if n mod i=0 then begin fun:=false;exit;end;

fun:=true;

end;

begin

assign(input,'word.in');

reset(input);

assign(output,'word.out');