2014noip复赛模拟练习21(附答案).docVIP

趣味填空 Description 小华的寒假作业上，有这样一个趣味填空题： 给出用等号连接的两个整数，如“1234＝127”。当然，现在这个等号是不成立的。题目让你在左边的整数中间某个位置插入一个加号，看有没有可能让等号成立。以上面的式子为例，如果写成123+4=127，这就可以了。 请你编写一个程序来解决它。 Input 只有那个不相等的式子。已知，等号两边的整数都不会超过2000000000。 Output 如果存在这样的方案，请输出那个正确的式子。如果不存在解决方案，请输出“Impossible!”（引号中的部分）。 Sample Input 1234=127 Sample Output 123+4=127 program ex1075;var i,len,p:integer; a1,a2,b:longint; st,st1,st2,st3:string;begin readln(st); p:=pos(=,st); st1:=copy(st,1,p-1); delete(st,1,p); val(st,b); len:=length(st1); for i:=1 to len-1 do begin st2:=copy(st1,1,i); val(st2,a1); st3:=copy(st1,i+1,len-i); val(st3,a2); if a1+a2=b then begin writeln(a1,+,a2,=,b);exit; end; end; writeln(Impossible!)end. 输入 3578=3560 输出Impossible 输入 32468=500 输出 32+468=500 输入 9888876593=988887662 输出 988887659+3=988887662 旋转单词 Description 今天的英语课，王老师为了复习以前学过的单词，提高学生的学习兴趣，想出了一个主意： 读入M组数据，其中每组数据有一个单词L（单词长度=36个字符）和一个整数N（0=N=36），从该单词最末位开始逐位移到单词的开头，如果还没达到N值，则再从末位开始移动，直到达到N值为止，求移N位后的新单词。你能编程帮助贝贝最快完成任务吗？ Input 共有2*M+1行，第1行为M，第2行开始为具体数据，每一组数据有2行，第1行为字串L，第2行为N。 Output 共M行，每行为旋转后的字串。 Sampl Input 3 computer 3 program 1 ABCDEFGH 35 Sample Output tercompu mprogra program ex1842; var st,st1,st2:string; n,i,j,t,p,len:integer; begin readln(n); for i:=1 to n do begin readln(st); readln(t); len:=length(st); if tlen then p:=len-t else p:=len-t mod len; st1:=copy(st,1,p); st2:=copy(st,p+1,len-p); writeln(st2,st1); end; end. 输入 2 Welcome 4 Teacher 12 输出 comewel Acherte 输入 5 Program 8 Mircosoft 6 Science 7 Made 1 Question 24 输出 mProgra cosoftMir Science eMad Question 【问题描述】 有一个英文句子，请你找出有多少个不同的单词，并且按字典序输出每个单词。 【输入格式】 一个英文句子，不超过250个字符。英文句子只包括小写字母、空格，开头和结尾无空格，每个单词用空格分隔。 【输出格式】 第1行输出不同单词的个数 第2行开始按字典序输出每个单词，每个单词占一行。 【输入样例】 these apples are red 【输出样例】 4 apples are red these var a:array[1..255] of string; {储存单词} t:string; {交换} s:string; i,j,l,k,