用free pascal 编程3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13.试求出所有二位绝对素数.如果一个自然数除了1和本身,还有别的数能够整除它,这样的自
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 07:09:52
用free pascal 编程3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13.试求出所有二位绝对素数.如果一个自然数除了1和本身,还有别的数能够整除它,这样的自
用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个数的格式输出.
用free pascal 编程3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13.试求出所有二位绝对素数.如果一个自然数除了1和本身,还有别的数能够整除它,这样的自
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文件就行了!
给钱!