两道Pascal小问题，跪求答案!!!!!!!!!!!!!
下面几题，能做几道就做几道。要有过程!!!!!!求求各位了 1.已知:1到10中有两个数1、7不能被2，3，5整除，那么1到1000中有多少个数不能被2，3，5 整除? 2. 一个栈(无穷大)的进栈序列为1,2,3,..n,有多少种不同的出栈序列? 如n=3时,出栈序列有 1,2,3 1,3,2 2,1,3 2,3,1 3,2,1 共5种，问:当n=5时的出栈种数是多少(只求种数)? 过程，一定要过程!!!!!求求各位了，再过几天就要初赛了!! O(∩_∩)O谢谢
两种方法
1)
1000-[1000/2]-[1000/3]-[1000/5]+[1000/(2*3)]+[1000/(2*5)]+[1000/(3*5)]-[1000/(2*3*5)]
=1000-500-333-200+166+100+66-33
=266
2)
[1000*(1/2)*(2/3)*(4/5)]=266
中括号是取整
2.卡特兰数c(2n,n)/n+1
c(10,5)/6
=10!/5!/5!/6
=10*9*8*7/5/4/3/2
=42
跟楼上怎么不一样?
几个free pascal 的简单小问题,希望帮忙解决
writeln(ans);第二题 用 spfa 算法遍历全图，不断更新每个点的剩余最大体力值 spfa算法运行完后，判断最后一个点的最大剩余体力值是否大于0，大于则可以走出迷宫，否则不能，懒得编程序...做题去了，88 觉得我讲的还行，就给个分把，谢谢
一道Pascal小问题,急!!!
下面是一道Pascal小程序programt2;constn=200;varsi,pr:setof2..n;x,j,m:integer;beginreadln(m);si:=[2..m];pr:=[];x:=2;repeatwhilenot(xinsi)dox:=succ(x);pr:=pr+[x];j:=x;whilej... 下面是一道Pascal小程序program t2;const n=200;var si,pr:set of 2..n; x,j,m:integer;begin...
初一的学生跪求高手们解一道PASCAL的问题,要具体过程,答案自己有,只是...
这道题的答案：dog-is-clever 解答过程：1 var i,j:integer;str1,str2:string;begin 定义四个变量，其中i,j为整数类型，str1,str2是字符串。2 str1:='pig-is-stupid';str2:='clever';给str1和str2赋初值，现在str1代表字符串"pig-is-stupid",str代表"clever"。3 str1[1]:='d'; s...
会pascal的帮一下忙,跪求答案,循环结构的内容
if a1*6+a2*7+a3*8+a4*9=a then begin b:=true; writeln(a1,' ',a2,' ',a3,' ',a4,' ',a1+a2+a3+a4); end; {判断};if not b then write(0);end.
一道Pascal小问题,急急急!!!,在线等!
800*600*16字 =800*600*16\/8字节 =800*600*16\/8\/1024KB =800*600*16\/8\/1024\/1024MB
pascal递归求助高手。。
在Pascal程序中，子程序可以直接自己调用自己或间接调用自己，则将这种调用形式称之为递归调用。其中，我们将前者的调用方式称为简单递归，后者称为间接递归。在此介绍直接递归。递归调用时必须符合以下三个条件：（1）可将一个问题转化为一个新的问题，而新问题的解决方法仍与原问题的解法相同，只不过所...
谁能给我点pascal的题目做 最好是测验卷整张
跪求求最佳答案 数组笔试试题 一、选择题（每题可能有一个或多个正确选项，每题2分，共20分）1.下面对数组类型定义描述正确的是（ ）a)数组的下标类型是有序类型 b)一个数组中的各元素类型可以不一样 c)数组的下标类型若为整型，则其上界一定要大于下界 d)pascal语言数组下标的下界要大于等于零...
会pascal的帮一下忙,跪求答案,循环结构的内容 算出s=1!+3!+5!+9!
var i,j,t:integer;begin j:=1;t:=1;for i:=1 to 3 do j:=j*i;t:=t+j;j:=1;for i:=1 to 5 do j:=j*i;t:=t+j;j:=1;for i:=1 to 9 do j:=j*i;t:=t+j;writeln(t);end.如果想简便一点，可用函数，如果需要，请追问。
会pascal的帮一下忙,跪求答案,循环结构的内容
初始化为零.也就是赋0值吧.在输入结果语句之后,如果题目对了,就让此变量加1,也就是I:=I+1吧,否则不加,一个if语句就可以了.在下一个给出计算结果前,检查I的值,如果I值大于或等于10时,强制跳出循环.也就是那个BraeK,记不得了,首尾两个字符中是对的..很简单的问题嘛,还跪求?
跪求答案 “百钱买百鸡”关于pascal
=0;repeat a:=a+1;b:=0;repeat b:=b+1;c:=(100-3*a-2*b)*3;if a+b+c=100 then writeln(a,' ',b,' ',c);until b>(100-a) div 2;until a>100 div 3;end.--- 要好好谢谢我啊 这是我第一次回答问题呢
