1、第1題：Program ex301;varu:array0.3 of integer;i,a,b,x,y:integer;begin y:=10; for i:=0 to 3 do read(ui); a:=(u0+u1+u2+u3) div 7; b:=u0 div (u1-u2) div u3); x:=(u0+a+2)-u(u3+3) mod 4; if (x>10) then y:=y+(b*100-u3) div (uu0 mod 3*5) else y:=y+20+(b*100-u3) div (uu0 mod 3*5); writeln (x,',',y);

2、end. *注：本例中，給定的輸入數據可以避免分母為 0 或下標越界。 輸入：9 3 9 4輸出： _第2題：program s401; var p,q:array0.5 of integer;    i,x,y:integer; begin    y:=20;    for i:=0 to 4 do read(p);    readln;    q0:=(p0+p1)+(p2+p3+p4) div 7;    q1

3、:=p0+p1 div (p2+p3) div p4);    q2:=p0*p1 div p2;    q3:=q0*q1;    q4:=q1+q2+q3;    x:=(q0+q4+2)-p(q3+3) mod 4;    If (x > 10) Then      y:=y+(q1*100-q3) div (pp4 mod 3*5)    Else

4、60;     y:=y+20+(q2*100-q3) div (pp4 mod 3*5);    writeln(x,',',y); end.輸入：6 6 5 5 3輸出：                            第3題：Pro

5、gram ex401;var u,v:array0.3 of integer; i,x,y:integer;begin x:=10; y:=10; for i:=0 to 3 do read(ui); v0:=(u0+u1+u2+u3) div 7; v1:=u0 div (u1-u2) div u3); v2:=u0*u1 div u2*u3; v3:=v0*v1; x:=(v0+v1+2)-u(v3+3) mod 4; if (x>10) then y:=y+(v2*100-v3) div (uu0 mod 3*5) else y:=y+20+(v2*100-v3) div (uv0

6、 mod 3*5); writeln (x,',',y);end. *注：本例中，給定的輸入數據可以避免分母為 0 或下標越界。  輸入：9 3 9 4輸出：               第4題：program s402;  var a,b:integer;   x,y:integer;  procedure fun(a,b:integer);  &#

7、160;   var k:integer;      begin          k:=a; a:=b; b:=k;      end;  begin      a:=3; b:=6;      x:=a; y:=b;     

8、 fun(x,y);      write('No.1:',a,',',b,'    ');      fun(a,b);      writeln('No.2:',a,',',b);  end. 輸出：          

9、60;   第5題：program t1； var n，k，s：longint； begin readln(n); k:=0； s:=1； while s <= n do begin k:=k+1; n:=n-s; s:=s+6*k end; writeln (k) end. 輸入:100 輸出:_ 第6題：var p，q，s，t：integer；beginreadln(p)；for q:=p+1 to 2*p dobegint:=0；s:=(p*q)mod(q-p)；if s=0 then begin t:=p+q+(p*q)div(q-p)；write(

10、t：4)； end； end；end. 輸出：              _第7題：Program ex402; const m:array0.4 of integer=(2,3,5,7,13); var i,j:integer; t: longint; beginfor i:=0 to 4 do begint:=1;for j:=1 to mi-1 do  t:=t*2;t:=(t*2-1)*t; write (t

11、,' '); end;writeln;  end.輸出:_                  第8題：program gao7_4；var x，y1，y2，y3：integer；beginreadln(x)； y1：=0；y2：=1；y3：=1；while y2<=x dobeginy1：=y1+1；y3：=y3+2；y2：=y2+y3 end；writeln(y1)；end.輸入：23420輸

12、出：           _   第9題：program S403;         var a1:array1.50 of integer;         var i,j,t,t2,n,n2:integer;       &#

13、160; begin             n:=50;             for i:=1 to n do a1:=0;             n2:=round(sqrt(n);    

14、         for i:=2 to n2 do                If (a1 = 0) Then                  begin   &

15、#160;                t2:=n div i;                    for j:=2 to t2 do a1i*j:=1;        &#

16、160;         end;                t:=0;                for i:=2 to n do      

17、0;         If (a1 = 0) Then                  begin                    write(i:4)

18、;    inc(t);                    if(t mod 10=0) then writeln;                  end;