1樓：匿名使用者
var ans , i , j , n : longint;
begin
readln(n);
for i := 1 to 20 * n dofor j :=1 to 50 * n doif (100 * n - 5 * i - 2 * j > 0) then
inc(ans);
writeln(ans);
end.
2樓：匿名使用者
varmax,i,j,n:longint;
begin
readln(n);
for i:=1 to 20*n do
for j:=1 to 50*n do
if 100*n-5*i-2*j>0 thenbegin
inc(max);
end;
writeln(max);
end.
3樓：聽不清啊
program p1755;
var n,a,b,c,count,i:longint;
begin
readln(n);
count:=0;
for a:=1 to (100*n-3) div 5 dofor b:=1 to (100*n-5*a-1) div 2 doinc(count);
writeln(count);
readln;
end.
一道pascal程式設計題目，不知道怎麼優化程式才能不超時？只能乙個乙個加減？實在想不到，求大神們指點指點！
4樓：聽不清啊
這樣的程式試一下能不超時嗎？
var a:array[1..100000]of longint;
//記錄型別，x表示理想糖數，y表示實際收到糖數；
s,ans:int64;
m,n,i,j,t,t1:longint;
procedure sort(l,r:longint); //降序快速排序
var i,j,k,t:longint;
begin
i:=l; j:=r; k:=a[(l+r) div 2];
repeat
while a[i]>k do inc(i);
while a[j]j;
if lt then
begin
if t1=0 then inc(ans,t*t*i)else inc(ans,t*t*(i-t1)+(t+1)*(t+1)*t1);
break
endelse begin
inc(ans,a[i]*a[i]); dec(s,a[i]);
end;
end;
writeln(ans);
end.
5樓：武風
你為什麼不相信我呢，我是對的啊
高精度除法的優化 pascal
一道pascal問題，求大師解答！原本的程式效率不夠高。最好出個簡潔易懂並且效率高的程式。
6樓：聽不清啊
程式完成如下：
var a:array[0..10000]of integer;
n,i,x:integer;
begin
read(n);
for i:=1 to n do
begin
read(x);
inc(a[i]);
end;
for i:=0 to 10000 do
if a[i]>0 then writeln(i,' ',a[i]);
end.
一道pascal問題求解，一道Pascal問題求解
用hash壓縮下，時空效率就很高了。先放在陣列，再用for迴圈，迴圈是 a to z 然後再用選擇排序 for i 1 to n 1 do for j i 1 to n do begin t a i a i a j a j t end 一道pascal問題求解 按題意，分子中能分解出sum1個2，分...
一道Pascal題目，急，一道Pascal題目，急！
var i,j integer begin for i 1 to 3 do begin for j 1 to 3 i do write for j 1 to 5 do write writeln end end.var i,j integer begin i 3 while i 1 do begin...
一道pascal題目
program d55 vara,b,c,i,n longint begin readln n a 1 b 1 for i 3 to n do begin c a b a b b c end if n 1 or n 2 then c 1 writeln c end.1 定義變數並初始化 i 0，j ...
一道pascal題目
很簡單，用深度優先搜尋，我沒做優化，當n 9，r 9時，需要一定時間。varn,r,k byte f array 1.9 of boolean a array 1.9 of byte procedure permutation i byte var j byte begin if i r 1 the...
一道簡單的pascal
m行n列 實際上是m行 相鄰的兩數差為n的等差數列pascal程式 vari,j,n,m longint a array 1.500000 of longint begin readln n,m for i 1 to n m do read a i for i 1 to m do beginfor ...