求2008年NOIP普及组复赛试题

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/20 13:27:29
求2008年NOIP普及组复赛试题
xN1_Ld P0v& W6LAD1hƗǡ8d3Ⱍ+1Z}a.kmG, ϐ[*<;^5.Rj^TDhKfvuHbuIX"3yEN\bKi)#(Y"LbanT6@"gC(#`\gh$.qE>3p.(񧻦n}W޷`&t@|AY؃C}5{AGH+P^tOopJs)O:$SE?s$

求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