編寫乙個 pascal 程式來列印出 30 到 60 的偶數

vari:integer;

beginfor i:=30 to 60 doif i mod 2=0

或者使用奇數函式 if not odd（i）}odd（x） 來確定 x 是否為奇數。如果值為 true，則值為 false }

then write(i,' ');

writeln;

end.

var i:integer;

beginfor i:=15 to 30 do write(i*2,' ');

end.輸出每個數字 2 的結果，介於 15 和 30 之間}

i:integer;

begini:=1;

while i<=20 do

beginwriteln(i);

inc(i);

end;end.

2.【while do】

var i:integer;

begini:=30;

while i<=60 do

beginwriteln(i);

inc(i,2);

end;end.

repeat】

var i:integer;

begini:=20;

repeat

writeln(i);

inc(i,2);

until i=62;

end.i:integer;

begini:=20;

repeat

writeln(i);

dec(i);

until i=0;

end.i,s:integer;

begins:=0;

i:=1;repeat

inc(s,i);

inc(i);

until i=101;

writeln(s);

end.最後幾個... 為什麼你必須使用 repeat 和 while... 手機打字，怕有語法錯誤，你編譯吧！

program e1;

var i:integer;

begin i:=1;

while i<>20 do begin writeln(i);inc(i);end;

end.pogram e2;

var i:integer;

begin i:=30;

repeat

if not(odd(i)) then writeln(i); inc(i);

until i=60;

end.program e3；

var i:integer;

begini:=20;

repeat

writeln(i);dec(i);

until i=1;

end.program e4;

var i,s:integer;

begini:=1;

repeat s:=s+i;inc(i);until i=100;

writeln(s);

end.program e5;

var x,y:integer;

beginx:=10;

repeat

y:=(x mod 10)*10+(x div 10);

if y-x=36 then writeln(x);

until x=99;

end.program e6;

var i,x,y:integer;

begini:=1000;

while i<>9999 do

beginx:=i div 100;y:=y mod 100;

if x*x+y*y=i then writeln(i);inc(i):

end;end.

program e7;

var i,j:integer;

begini:=1;j:=1;

while i<>10 do

beginwrite(i,'*',j,' '); inc(j);if j=10 then begin inc(i);j:=i;end;

end;end;

program e8;

varh,f,t,j:integer;

beginh:=30;

f:=90;

while j<>30 do

beginif i*2+(30-i)*4=90 then writeln(j)

inc(j);

end;t:=30-j;

writeln(t);

readln;

end.這是所有 8 個問題的程式。 尋求收養。 關於格式，由於標題的原因，以上沒有描述。 所以我按照自己的方式來了。 純手工製作。 要求積分！

僅寫入迴圈部分。

while i<=20 do

beginwriteln(i);

i:=i+1;

end;2.使用時要：

i:=30;

while i<=60 do

beginwriteln(i);

i:=i+2;

end;重複：

i:=30;

repeat

writeln(i);

i:=i+2;

until i>60;

repeat

writeln(i);

i:=i-1;

until i<1;

s:=0;repeat

s:=s+i;

i:=i+1;

until i>100;

repeat

a:=x mod 10;

b:=x div 10;

y:=a*10+b;

if (y-x)=36 then writeln(x);

x:=x+1;

until x>99;

while x<10000 do

begina:=x mod 100;

b:=x div 100;

if (a*a+b*b)=x then writeln(x);end;

while i<=9 do

beginj:=1;

while j<=i do

beginwrite(j,'*',i,'=',j*i);

j:=j+1;

end;writeln();

i:=i+1;

end;l);

i:=0;while i<=h do

beginif (i*2+(h-i)*4)=l thenbegin

write('共享',i,'雞',h-i,'乙隻兔子');

break;

end;i:=i+1;

end;打字速度渣滓

var s:ansistring; a:integer;begin read(s); val(s[length(s)],a); if odd(a) then write('jishu') else write('oushu');end.

您丟失的位數不超過 20 億。

問題是輸入乙個 n（n<=2 31-1），後跟 n 個數字 （2 31-1 -2 31），然後找到偶數的平均值。

附上原始碼 （freepascal）：

var i,n,a,t:longint;s:int64;

beginread(n);s:=0;t:=0;

for i:=1 to n do begin read(a);if a[i] mod 2=0 then begin s:=s+a;t:=t+1;end;end;

writeln(s div t);