编写一个 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);