练习一
计算100000项，求圆周率的近似值。π/4=1－1/3+1/5－1/7+……
练习二 输出下列图形
总的行数N ( 1≤N≤9 )由键盘输入，如
N=3时：
1
121
12321
N=4时：
1
121
12321
1234321
练习三 百 鸡 问 题
现有100元钱，希望正好买100只鸡。已知公鸡每5元钱一只，母鸡每3元钱一只，小鸡每元钱买3只。
请输出所有合理的购买方案
练习四 奇怪的分数
16/64是一个分子和分母都是两位数的真分数，且分子的个位数字与分母的十位数字相同。非常奇怪的是：如果把该分子的个数数字和分母的十位数字同时划去，所得结果正好等于原分数约分后的结果，例如16/64=1/4。
请输出所有满足上述条件的真分数。
參考答案:3.
var a,s,d:integer;
begin
for a:=1 to 100 do
for s:=1 to 100 do
for d:=1 to 100 do
if a+s+d=a*5+s*3+d mod 3 then
writeln(a,' ',s,' ',d);
end.
4.
var a,b,c,i,j:integer;
begin
for i:=11 to 99 do
for j:=10 to 99 do
a:=i mod 10;
if i-10*a=j mod 10 then
begin
b:=i-10*a;
c:=j mod 10;
end;
if [(i-b) mod 10]mod(j-10*c)=i mod j then
writeln(i,'/',j);
end.