求2008年NOIP普及组复赛试题

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/22 04:21:04
求2008年NOIP普及组复赛试题求2008年NOIP普及组复赛试题求2008年NOIP普及组复赛试题一、ISBN号码基础字符串处理题,心细一点的基本都能得满分.参考程序:programisbn;co

求2008年NOIP普及组复赛试题
求2008年NOIP普及组复赛试题

求2008年NOIP普及组复赛试题
一、ISBN号码
基础字符串处理题,心细一点的基本都能得满分.
参考程序:
program isbn;
const
inp='isbn.in';
oup='isbn.out';
var
i,j,k,ans:longint;
s:string;
ch:char;
procedure flink;
begin
assign(input,inp);
reset(input);
assign(output,oup);
rewrite(output);
end;
procedure fclose;
begin
close(input);
close(output);
end;
begin
flink;
readln(s);// 输入字符串
j:=0;
i:=1;
ans:=0;
while j