題意
將一些是接起來，找出接的最大的數
分析這題其實就是最大整數。做的時候，我們可以先把數字串排序，從小到大，再乙個乙個接起來
varn,i,x,j:longint;
t:string;
s:array[0..20]of string;
procedure kp(l,r:longint);
vari,j:longint;
mid:string;
begin
if l>=r then exit;
i:=l;j:=r;mid:=s[(l+r) div 2];
repeat
while s[i]>mid do inc(i);
while s[j]j;
kp(l,j);
kp(i,r);
end;
begin
readln(n);
for i:=1 to n do
begin
read(x);
str(x,s[i]);
end;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if s[i]+s[j]
迷宮pascal程式
題意 走迷宮，要繞開障礙，走過的就不能再走，求有多少種不同的方法可以到達終點 分析我們可以用深搜來做，輸入時把障礙的座標記錄下來 const dx array 1.4 of longint 0,0,1,1 dy array 1.4 of longint 1,1,0,0 varn,m,t,sx,sy,...
獎學金pascal程式
題意 把總分排序 分析先按總分從高到低排序，如果兩個同學總分相同，再按語文成績從高到低排序，如果兩個同學總分和語文成績都相同，那麼規定學號小的同學 排在前面 vara,t,p array 0.300 of longint n,i,x,y,j longint procedure kp l,r long...
Pascal程式練習 與7無關的數
與7無關的數 時間限制 1000ms記憶體限制 65536kb 描述 乙個正整數,如果它能被7整除,或者它的十進位制表示法中某個位數上的數字為7,則稱其為與7相關的數.現求所有小於等於n n 100 的與7無關的正整數的平方和.輸入 輸入為一行,正整數n,n 100 輸出 輸出小於等於n的與7無關的...