求一道pascal题是这样的：program noip21;var d,p:integer;beginp:=1;d:=11;while d>1 do beginp:=2*(p+1);d:=d-1;end;writeln(p);end.

求一道pascal题是这样的：program noip21;var d,p:integer;beginp:=1;d:=11;while d>1 do beginp:=2*(p+1);d:=d-1;end;writeln(p);end. 一道poj上的题目求poj2253 的pascal程序 急求TURBO PASCAL 急求关于TURBO PASCAL 一道要关于FOR的,另外两道一道是过程的,一道是函数的,题目可以自己编,但是要与化学有关的, pascal编程求1+3+5+...+n一定要是自己是过的,要用pascal! pascal 连续若干个正整数之和为1000,求有多少种这样的数列. 一道pascal的余数（韩信点兵）题!某数,除5余4,除6余1,除7余4,求此数. 一道PASCAL题 读入10个数,计算它们的和、积、平方和及和的平方 求助一道pascal高精度乘法题：输入两个正整数m、n,输出他们的积.( 1 用pascal语言做一道题读入三个整数,找出并输出其中最大的数 Miller-Rabbin素数测试法求一个用Miller-Rabbin算法判断是否为素数的程序,注意要用PascalPascal!Pascal!Pascal!Pascal!Pascal!Pascal!Pascal!Pascal!最好有说明 一道Free Pascal的题目求100~1000之间能被7整除的数,每行输出10个. pascal求两个数的最小公倍数 求100以内的素数pascal语言 求任意五个自然数的最小公倍数 pascal 一道pascal试题,输入两个数a,b求两个数的最大公因数（用while语句）. pascal求最小公倍数和最大公约数如题 一道简单的free pascal题目,各位free pascal大师解答一下吧.求2~100中每个数的质因子,输出如下形式：2=23=34=2*2...99=3*3*11100=2*2*5*5请一定是自编,要用我这种水平去做.最好用for循环.并请写上每一步的 求pascal的一道题,寻找160以内的素数,输出符合要求的素数要求：他的倒序数、数码和（如123的数码和是1+2+3）、数码积（如123的数码积是1*2*3）都是素数或1（如11是素数,他的倒序数也是素数,