>>>>>>>>提问
作业：
1.利用下列公式计算并输出π的值休 闲 宝贝网
π/4=1-1/3+1/5-1/7+……+1/(4n-3)-1/(4n-1) n=10000
2.输入20个数，统计其中正、负和零的个数。
3.在1---500中，找出能同时满足用3除余2，用5除余3，用7除余2的所有整数（选自《孙子兵法》）。
4.输出1---999中能被3整除，且至少有一位数字是5的所有整数。
5.求2---1000中的守形数（若某数的平方，其低位与该数本身相同，则称该数为守形数。例如，25，252=625，625的低位25与原数相同，则称25为守形数）
6.求数列a0，a1,a2,a3……a20。已知
a0=0,a1=1,a2=1
a3=a0+2a1+a2
a4=a1+2a2+a3
…
7. 画图形y=e-xsin(2πx)。已知
x=0,1/16,2/16,3/16……2
。
8. 连续读入几个x值，计算并输出相应的√x和ln(x)值，当输入x值为负时，终止计算。
9. 读入一个算数表达式，以‘；’结束。对该表达式中的圆括号是否配对进行检查，给出正确与错误的信息。若出错还应指出是左括号多余右括号，或是右括号多于左括号，或是先出现了右括号。
10. 输入一串字符，以‘？’结束。统计其中字母个数，数字个数，其它符号个数。
11. 输入两个数，求出他们的最大公约数和最小公倍数。
12. 输入x值，按下列公式计算cos(x).
Cos(x)=1-x2/2!+x4/4!-x6
107
/6!+……直到最后一项的绝对值小于10-5为止
>>>>>>>>休闲宝贝网回答：
题量真大啊！分批告你吧。
第一题：
program pi;
var i,n:integer; s:real;
begin
s:=0; 计数器，计算π/4的值；
n:=10000;
for i:=1 to (2*n) do ｛1=2*1-1，3=2*2-1，5=2*3-1……4n-1=39999=2*20000-1｝；
if i mod 2=1 then s:=s+1/(2*i-1) else s:=s-1/(2*i-1); i为奇数时加上i的倒数，否则减去i的倒数；
s:=s*4; 得出π值；
writeln(s:0:15); 输出s小数点后15位数字；
readln; 等待用户键入回车退出程
。
end.
第二题：
program numbers;
var a:array[1..20] of integer; i,x,y,z:byte;
begin
x:=0; y:=0; z:=0; 三个计数器，分别统计正零负个数；
for i:=1 to 20 do read(a[i]); readln; 读入20个数组元素；
for i:=1 to 20 do 循环分析每个数组元素；
begin
if a[i]>0 then x:=x+1;
if a[i]=0 then y:=y+1;
if a[i]<0 then z:=z+1; 对每个数组元素进行处理，计数器分别跟上；
end;
writeln('>0:',x);
writeln('=0:',y);
writeln('<0:',z); 输出结果。
readln;
end.
第三题：
var i:integer;
begin
for i:=1 to 500 do
if (i mod 3=2) and (i mod 5=3) and (i mod 7=2) then writeln(i); 寻找符合条件的数；
readln;
end.
第四题：
var i,j:integer;
begin
for i:=1 to 333 do
begin
j:=3*i;
if (j mod 10=5) or ((j mod 100) div 10=5) or (j div 100=5) then writeln(j); 取每位数字进行比对；
end;
readln;
end.
第五题：
var i,n,k,s:integer; j:longint;
begin
n:=0;
for i:=2 to 1000 do
begin
j:=i*(i-1); s:=1; 某数的平方低位若含有此数，那么用平方减去此数必能被10^n(n代表此数位数)整除，例如：25的平方是625，25又是两位数，那么(625-25) mod 10^2=0；注：在Pascal中书写“10^2”为错，因此需要累乘器。
if (i div 1000<>0) then n:=4
else if (i div 100<>0) then n:=3
else if (i div 10<>0) then n:=2
else n:=1; 提取i的位数；
for k:=1 to n do s:=s*10; 累乘器做好准备；
if (j mod s=0) then writeln(i); 如果符合要求就输出；
end;
readln;
end.
第六题后的我会陆续告你的。
