用pascal求a 到b 之间的最大质数

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/06 01:26:35

用pascal求a 到b 之间的最大质数
我的程序是求出A到B之间的所有质数后,再求出他们的个数.再怎么求a 到b 之间的最大质数?program sushu;
var
i,j,t,a,b:integer;
f:boolean;
begin
readln(a,b);
if a=1 then a:=a+1;
for i:= a to b do
begin
f:=true;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then f:=false;
if f=true then
begin
write(i:4);
inc(t);
end;
end;
writeln;
writeln(t:4);
readln
end.

你可以在
if f=true then
begin
write(i:4);
inc(t);
end;
end;
这个循环中增加一个integer变量x来负责记录目前为止最大的质数
即加入 x:=i

pascal输入a,b求它们的最大公因数和最小公倍数,用辗转相除法用pascal语言求100以内的质数 pascal求正整数2到100之间的完全数 pascal中求质数的问题. 如果质数a和质数b之间的所有自然数的和是280,且其中没有别的质数,求a+b的值 C语言程序（输入两个数 a b 求ab之间的质数并且输出所有质数之和） pascal求质数!是的输出yes,不是的输出no. 求30到50之间所有的质数求3到234之间的所有质数用pascal求2到1000的亲密数对 Pascal问题：a+b pascal a to b