用free pascal编程有15根火柴,如果规定每次取2根或3根,那么取完这堆火柴共有多少种不同取法?
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 16:18:25
![用free pascal编程有15根火柴,如果规定每次取2根或3根,那么取完这堆火柴共有多少种不同取法?](/uploads/image/z/14596678-46-8.jpg?t=%E7%94%A8free+pascal%E7%BC%96%E7%A8%8B%E6%9C%8915%E6%A0%B9%E7%81%AB%E6%9F%B4%2C%E5%A6%82%E6%9E%9C%E8%A7%84%E5%AE%9A%E6%AF%8F%E6%AC%A1%E5%8F%962%E6%A0%B9%E6%88%963%E6%A0%B9%2C%E9%82%A3%E4%B9%88%E5%8F%96%E5%AE%8C%E8%BF%99%E5%A0%86%E7%81%AB%E6%9F%B4%E5%85%B1%E6%9C%89%E5%A4%9A%E5%B0%91%E7%A7%8D%E4%B8%8D%E5%90%8C%E5%8F%96%E6%B3%95%3F)
用free pascal编程有15根火柴,如果规定每次取2根或3根,那么取完这堆火柴共有多少种不同取法?
用free pascal编程
有15根火柴,如果规定每次取2根或3根,那么取完这堆火柴共有多少种不同取法?
用free pascal编程有15根火柴,如果规定每次取2根或3根,那么取完这堆火柴共有多少种不同取法?
3.
var a:0..99;
function su(p:0..99):boolean;
var o:0...99;
begin
su:=true;
for o:=2 to trunc(sqrt(p)) do if p div o=0 then su:=false;
end;
begin
for a:=10 to 99 do
if (su(a))and(su(a div 10+a mod 10*10)) then writeln(a);
end;
end.
4.为神马不能用乘法?想好后再解!(提示:cena只看答案,对了就加分,所以有人骗分!)
5.此题直接输出,不解.
6.
var p,k:0..999; s:string[3]; b:boolean;
begin
for p:=100 to 999 do
begin
str(p,s);
b:=true;
for k:=1 to 3 do if s[k]s[4-k] then b:=false;
if b then writeln(s);
end;
end.
7.
var a,b,c,q:longint;
begin
write(0,' ' ,1,' ');
b:=1;
for q:=3 to 30 do
begin
c:=a+b;
a:=b;
b:=c;
write(c,' ');
if q mod 5=0 then writeln;
end;
end.
解决!把程序复制到pas文件里,用pascal打开生成exe文件就行了!
给钱!
希望能解决您的问题.