作业帮用free pascal编程有15根火柴,如果规定每次取2根或3根,那么取完这堆火柴共有多少种不同取法?
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/19 17:55:04
用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文件就行了!
给钱!
希望能解决您的问题.