两届比赛pascal试题.docVIP

2011秀洲区pascal试题 1．以下程序是实现计算1×2×3×4×5×6的值；请完成程序填空。(3+3+4＝10分) program mul(input,output); var i,s:integer; begin s:=1; i:=1; repeat s:=　　 i i:=i+ 1 ； until i6 ; writeln(‘1*2*3**4*5*6=’,s) end. 2．下面这个程序是在显示器屏幕上打印下面图形，请完成下面程序填空。(3+4+3＝10分) * ** *** **** ***** ****** program table(input,outout); var i , j : integer ; begin for i : = 1 to do begin for j : =1 to do write(‘*’) ; writeln; end end. 2010嘉兴市第一届pascal试题 2011嘉兴市第二届pascal试题