1樓:匿名使用者
你可以在
if f=true then
begin
write(i:4);
inc(t);
end;
end;
這個迴圈中增加一個integer變數x來負責記錄 目前為止最大的質數
即加入 x:=i
2樓:匿名使用者
vari,j,t,a,b,max: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)) doif i mod j=0 then f:=false;
if f=true then
begin
write(i:4);
max:=i;
inc(t);
end;
end;
writeln;
writeln(t:4);
writeln(max:4);
readln
end.
**如上,因為你是列舉a 到 b 之間的數是否是質數,所以最後記錄的那個質數就是最大的數。
3樓:匿名使用者
就是一個簡單排序問題嘛,將結果中的數兩兩比較,找出最大的。
其實你做複雜了,從b到a找出所有素數,那麼第一個找到的就是最大的素數!
4樓:pascal博士
var a,j,b,c,t1,t2,i:longint;f;integer;
begin
readln(a,b);f:=0;s:=0;
if a>b then t1:=b;t2:=a elset1:=a;t2:=b;
for i:=t1 to t2 do
begin
for j:=2 to i div 2 doif i mod j =0 then f:=1;s:=s+1;
if f=0 then writeln(i);
end;
writeln(s);
readln;
end.
5樓:幾夢絲兒
賦值給一個陣列,然後用冒泡法排序,輸出第一個:
for i:=a to b do beginfor j:=i+1 to b do beginif a[i]
a[i]:=a[j]; a[j]:=s; end; end; writeln(a[1]); end. 1974年 小號手 東海小哨兵 獲南斯拉夫第二屆國際美術電影節獎狀。地雷戰 獲奧地利第十四屆維也納電影節紀念獎。1977年中日合拍影片 一盤沒有下完的棋 和中國影片 邊城 在蒙特利爾世界電影節上獲獎。1978年 大鬧天宮 上下集 獲倫敦國際電影節最佳影片獎。小蝌蚪找媽媽 獲 南斯拉夫1978年國際美... 題目 我的家人 hi i am mike i am a student.i go school by bus.my mother is a teacher.she teches math.my father is a accountant.he likes math and my mother.th... 可以這樣做 f a,b a 2 ab b 2 a 2b對於雙變數函式 對a變數求導有 y 2a b 1 對b變數求導有 y a 2b 2 令y 0 解之 a 0 b 1所以min f 0,1 1 解 設y a 2 ab b 2 a 2b a 2 b 1 a b 2 2b y 0未知數為a的上方程,有...求只限在2019到2023年之間最傑出的是哪幾部影片最好的藝術品或者美術作品是哪些
求40到之間的英語作文,急用,謝謝
a,b為實數,求a平方 ab b的平方 a 2b的最小值