用free pascal 编程
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/23 14:24:18
用free pascal 编程
3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13.试求出所有二位绝对素数.
如果一个自然数除了1和本身,还有别的数能够整除它,这样的自然数就是合数.例如15,除了1和15,还有3和5能够整除,所以15是合数.14,15,16是三个连续的合数,试求连续十个最小的合数.
4.求前n个自然数的平方和,要求不用乘法.例如:3的平方不用3*3,可用3+3+3.
5.试用容积分别为17升、13升的两个空油桶为工具,从大油罐中倒出15升油来,编程显示出具体的倒油过程.
6.如果一个数从左边读和从右边读都是同一个数,就称为回文数.例如6886就是一个回文数,求出所有的既是回文数又是素数的三位数.
7.Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于前两项之和.求前30项,并以每行5个数的格式输出.
3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13.试求出所有二位绝对素数.
如果一个自然数除了1和本身,还有别的数能够整除它,这样的自然数就是合数.例如15,除了1和15,还有3和5能够整除,所以15是合数.14,15,16是三个连续的合数,试求连续十个最小的合数.
4.求前n个自然数的平方和,要求不用乘法.例如:3的平方不用3*3,可用3+3+3.
5.试用容积分别为17升、13升的两个空油桶为工具,从大油罐中倒出15升油来,编程显示出具体的倒油过程.
6.如果一个数从左边读和从右边读都是同一个数,就称为回文数.例如6886就是一个回文数,求出所有的既是回文数又是素数的三位数.
7.Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于前两项之和.求前30项,并以每行5个数的格式输出.
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文件就行了!
给钱!
再问: 第三题运行不成功
再答: 3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数。 如果一个自然数除了1和本身,还有别的数能够整除它, 这样的自然数就是合数。例如15,除了1和15,还有3和5能够整除,所以15是合数。14,15,16是三个连续的合数,试求连续十个最小的合数。 是这个?还是 3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数。
再问: 3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数。
再答: 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.
再问: jdss.pas(2,15) Error:Type identifier expected jdss.pas(2,15) Fatal:Syntax error,")" expected but "ordinal const" found jdss.pas(2,15) fatal:compilaton aborted
再答: var a:longint; function su(p:longint):boolean; var o:longint; begin su:=true; for o:=2 to p-1 do if p mod 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.
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文件就行了!
给钱!
再问: 第三题运行不成功
再答: 3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数。 如果一个自然数除了1和本身,还有别的数能够整除它, 这样的自然数就是合数。例如15,除了1和15,还有3和5能够整除,所以15是合数。14,15,16是三个连续的合数,试求连续十个最小的合数。 是这个?还是 3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数。
再问: 3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数。
再答: 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.
再问: jdss.pas(2,15) Error:Type identifier expected jdss.pas(2,15) Fatal:Syntax error,")" expected but "ordinal const" found jdss.pas(2,15) fatal:compilaton aborted
再答: var a:longint; function su(p:longint):boolean; var o:longint; begin su:=true; for o:=2 to p-1 do if p mod 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.