1樓：匿名使用者
你提的問題很多，題目能否講究一下，比如將 「狐狸和兔子」放在標題中，以便別人查詢 ！！！
這不就是狼追兔子的翻版嗎？
//將1234567890這閉合的十個洞想象成//由這十個數字串一個接一個接起來的無限長的直線vari,j:longint;
k:array[0..9] of longint;
sum:longint;
begin
for j:=0 to 9 do k[j]:=0;
i:=0;
sum:=0; //依據狼的起始位置的不同修改sum的初始值repeat
inc(i);
sum:=sum+i;
inc(k[sum mod 10]);
until i>10000;
for j:=0 to 9 do if k[j]=0 then write(j:2);
writeln;
end.
2樓：武風
var i,j,k,n,t,l:longint;
b:array[0..11]of boolean;
begin
readln(n);
for i:=1 to 10 do b[i]:=true;
b[n]:=false;
k:=n;
for i:=1 to 10000 do
begin
k:=(k+i) mod 10;
b[k]:=false;
end;
for i:=1 to 10 do if b[i] then write(i,' ');
end.
pascal程式設計 高精度求積
vara,b,c array 1.100 of longint n1,n2,n ansistring lena,lenb,lenc,i,j,x longint begin readln n i pos n n1 copy n,1,i 1 delete n,1,i n2 n lena length n...
用pascal程式設計 2023年我國人口約為10億，如果年人口增長率分別為2，1 5，1，0 5，問最早在哪一年我國
這個是2 的，其他的類似 program input,output vars real i integer begin i 0 while s 12 do begin i i 1 s s 0.02 s end writeln 1982 i end.絕對自編，那個wind lihao，問題裡的增長率是...
請教一道資訊學奧賽的pascal語言程式設計題
這個是某年的初中組複賽題。你發訊息給我，把你的郵箱留下我把標程和測試資料給你。pascal語言程式設計題 第二題你需要給輸入資料排序一下。然後先把五個整數加起來。減去最大的和最小的。例題排序後。a 1 87 a 2 85 a 3 83 a 4 82 a 5 79 就是答案。pascal程式設計題目，...