历届青少年信息技术奥林匹克竞赛输出程序结果试题汇总.docVIP

十六届 四、阅读程序写结果（共4题，每题8分，其中第4题（1）（2）各4分，共计32分） 1. var a1,a2,a3,x:integer; procedure swap(var a,b:integer); var t:integer; begin t:=a; a:=b; b:=t; end; begin readln(a1,a2,a3); if a1a2 then swap(a1,a2); if a2a3 then swap(a2,a3); if a1a2 then swap(a1,a2); readln(x); if xa2 then if xa1 then writeln(x,‘ ’,a1, ‘ ’, a3, ‘ ’,a3) else writeln(a1,‘ ’,x, ‘ ’, a2, ‘ ’,a3) else if xa3 then writeln(a1,‘ ’,a2, ‘ ’, x, ‘ ’,a3) else writeln(a1,‘ ’,a2, ‘ ’, a3, ‘ ’,x) end. 输入 91 2 2