關於Pascal的習題

2022-06-23 14:25:03 字數 696 閱讀 9503

1樓:百度網友

~~第2題是說所有可能的個數?~~ = =||| 那還數的完啊樓上那位的第2題程式只能輸出1個符合的數

but~ 題目是說所有可能~

如果前面說的 100 多個 是指 100~200之間的話就好辦了改進:var

i:longint;

begin

for i:=100 to 200 do

if (i mod 3=2) and (i mod 5=3) and (i mod 7=5) then writeln(i);

end.

2樓:鯤鵬展翅

1.program p1;

var i,s:integer;

begin

i:=12;

while i<=1002 do

begin

s:=s+i;

i:=i+10;

end;

write(s);

end.

2.program p2;

var i:integer;

begin

i:=100;

repeat

i:=i+1

until (i mod 3=2) and (i mod 5=3) and (i mod 7=5)

write(i);

end.

隱藏的最大整數pascal

1樓 匿名使用者 vars sl sll string ch char a array 1 30 of integer n x i k ma...

pascal中的這程式為什麼會是死迴圈

1樓 匿名使用者 在for迴圈中,對迴圈量進行賦值從編譯語法上是通過的 但是實際操作就會出現系統衝突 溢位 導致迴圈體不穩定或崩潰,形成死迴圈 2樓 匿名使用者 for迴圈中迴圈變數i的值在迴圈語句中不能再次改變,每次迴圈它會自動增加1 for i 1 to 5 do begin i i 1 write...

求PASCAL鄰接表和鄰接矩陣的具體用法

1樓 匿名使用者 鄰接矩陣a i j 表示點i j之間的路程,如果任意i j都有a i j a j i 那麼這個圖就是一個無向圖。 鄰接表a i a i 表示一個連結串列,裡面依次儲存每個和i相連的點k,i,k的距離,和next 如用 data n next 分別表示這個點的編號,這個點到i的距離和連線下...