pascal用迴圈和IF語句寫能輸出100以內的質數

時間 2022-09-15 15:35:05

1樓:匿名使用者

c語言的:

#define m 100

#include

void main()}

2樓:

program xu_1;

varn,k: longint;

f : boolean;

begin

for n:=2 to 100 do

begin

f:=true;

for k:=2 to trunc(sqrt(n))+1 doif n mod k=0 then

begin

f:=false;

break;

end;

if f then writeln(n);

end;

end.

(快加分呀!)

3樓:匿名使用者

program prime;

varn,k : longint;

f : boolean;

begin

for n:=2 to 100 do

begin

f:=true;

for k:=2 to trunc(sqrt(n)) doif n mod k=0 then

begin

f:=false;

break;

end;

if f then writeln(n);

end;

end.

新人學習寫sql語句,關於迴圈語句

沒有問題,在sqlserver2008裡執行得到正確結果 將sql server的用法用到mysql上,這算是創新嗎?你這是什麼資料庫的?mysql 嗎 如何用sql語句迴圈執行語句 sql語句無法實現迴圈,只能通過程式或者儲存過程來實現。如果只是一次性工作,則建議直接用excel的公式手批量生成s...

pascal陣列全部清為 1,語句怎麼寫?fillchar a,sizeof a1為什麼不對

fillchar 的第三個引數是賦給每個位元組的值,sizeof 返回的是位元組數。1自然用不了。一般不用fillchar去賦false及0以外的值。如果陣列是longint形,可以用filldword a,sizeof a div 4,1 試試。雖然我沒試過,但書上說這個函式是四位一賦值。這有點問...

用while迴圈語句編寫程式,計算1 200之間的所有3的倍

include int main printf n return 0 這個是for語句 比while 語句要好的多 而且很省時 for i 0 to 200 if i mod 3 0 then sum sum inext doif i mod 3 0 then sum sum iwhile i 20...