2006年青岛市程序设计竞赛试题（小学组）答案 pascal语言

第一题 var n:integer; a,b,c:integer; begin readln(n); a:=n div 100; b:=n div 10 mod 10; c:=n mod 10; if a+b+c=15 then writeln('1') else writeln('0'); end. 第二题 var n,i:integer; begin n:=991; for i:=10 to 1000 d