一道 free pascal 的编程题目，如下： 请高手解答，我会加分，在线等！！

第一道：
var
i,j,r,ans:longint;
begin
ans:=0;
for i:=0 to 9 do
for j:=0 to 9 do
begin
r:=10047+1000*i+100*j;
if (r mod 57=0) or (r mod 67=0) then inc(ans);
end;
writeln(ans);
readln;
end.
第二道：
var
n,i,j:longint;
f:boolean;
begin
readln(n);
f:=false;
for i:=1 to n div 12 do
begin
j:=n-i*12;
if (j mod 15=0) and (j<>0) then
begin
f:=true;
writeln(i,' ',j div 15);
end;
end;
if f=false then writeln('none');
readln;
end.
除了百度默认8格缩进看不太习惯外其他都挺好...
原创无抄袭已调试
望采纳~

1：
var i,sum:integer;
begin
sum:=0;
for i:=1 to 99 do
if ((i*100+10047) mod 57=0) or ((i*100+10047)mod 67=0)then
begin
sum:=sum+1;
writeln(i*100+10047);
end;
write(sum);
end.
:2：
var total,small,big,i,j,sum:integer;
begin
readln(total);
small:=total div 12;
big:=total div 15;
sum:=0;
for i:=1 to big do
for j:=1 to small do
if 12*j+15*i=total then
begin
writeln(j,' ',i);
sum:=sum+1;
end;
if sum=0 then write('none')

end.

看到这几个题让我想起了高中生活。你还在线不。