Question

几道有关pascal的题目，速度的最高再给50分！

以下题目全部用while做，实在不行for也可以
1.求所有的三位数中十位数能被个位数和百位数之和整除的数
2.求所有满足条件的四位数：（1）这四位数是11的倍数； （2）b+c=a；
3.s=-1+3-5+7-9+……n n为奇数。
--------------------------------------------------------------------------------------------------
速度的再给50分啊啊啊啊啊啊啊啊啊啊啊啊！

Answer 1

var i,a,b,c:integer;
begin
for i:=100 to 999 do
begin
a:=i div 100;
b:=(i div 10)-a*10;
c:=i-b*10-c*100;
if (b mod (a+c))=0 then write(i:4);
end;
end.
这是第一题
第二题(第一小题)
var a,b,c,d,i:integer;
begin
for i:=1000 to 9999 do
begin
if (i mod 11)=0
then write(i:5);
end;
end.
第二小题不懂

Answer 2

第二题的第二个条件能解释一下吗。。。

追问

就是var a，b，c....

追答

那么a，b和c是不同的四位数？
第一题：
var
s:string;
i,j,k,l,p:longint;
begin
i:=100;
while (i0) and ((k+p) mod l=0) then write(i,' ');
inc(i);
end;
end.

第三题：
var
i,j,n,ans,p:longint;
begin
j:=0;
readln(n);
p:=0;
while (i0 then
begin
inc(p);
if p mod 20 then j:=j-i
else j:=j+i;
end;
inc(i);
end;
writeln(j);
end.