1樓：天ぅ殤
var a:array[1..10000] of integer;
n,max,wz,i:longint;
beginreadln(n);
for i:=1 to n do
beginread(a[i]);
if maxa[2] then f:=1
else f:=0;
ans:=1;
for i:=3 to n do
if f=1 then begin if a[i]>鄭戚a[i-1] then begin inc(ans);f:=0;end;end
else begin if a[i]《喊蠢陵a[i-1] then begin inc(ans);f:=1;end;end;
writeln(ans);
end. 望給分。
pascal數段問題 輸入乙個數，輸出滿足條件的數段
2樓：中囡黃涵煦
首先，分析一下題目。設第乙個數是a，有i個數，那麼第i個數是a+i-1；
可以得到。(a+a+i-1)*i/2=m，去括號得2ai-i+i^2=2m
因此，for
i:=1to
round(sqrt(m))
do是對的，然後通過i去求a
我的程式：var
i,m:longint;
beginreadln(m);
fori:=1
toround(sqrt(m))doif
2*mmod
i=0)then
if(2*m-i*i+i)
mod(2*i)
thenwriteln((2*m-i*i+i)div(2*i),'2*m-i*i+i)
div(2*i)+i-1);
end.如果數段要求至少有兩個數的話，把i改成從2開始。
pascal數段問題 輸入乙個數，輸出滿足條件的數段
3樓：豆藝
首先，分析一下題目。設第乙個數是a，有i個數，那麼第i個數是a+i-1；
可以得到 (a+a+i-1)*i/2=m，去括號得2ai-i+i^2=2m
因此，for i:=1 to round(sqrt(m)) do是對的，然後通過i去求a
我的程式：vari,m:longint;
beginreadln(m);
for i:=1 to round(sqrt(m)) do
if (2*m mod i=0) then
if (2*m-i*i+i) mod (2*i) =0 then
writeln((2*m-i*i+i) div (2*i),'-',(2*m-i*i+i) div (2*i)+i-1);
end.如果數段要求至少有兩個數的話，把i改成從2 開始。
pascal程式設計
vara array 1.100,1.100 of longint i,j,n longint begin readln n for j 1 to n do a 1,j j for i 2 to n do for j 1 to n i 1 do a i,j i a 1,j i 1 for i 1 t...
pascal程式設計的語言，Pascal語言是什麼？
program 程式 const 常量 type 型別 var 變數 function 函式 procedure 過程 begin 開始 end 結束 if 如果 then 那麼 else 否則 case of 分支 for to do 計數迴圈 while 當迴圈 repeat 迴圈 until ...
Pascal程式設計，求乙個數的分解乘法算式有多少個。好答案，可追加。 20
pascal程式設計，求乙個數的分解乘法算式有多少個。好答案，可追加。的程式不夠省運算時間。計算式子的值 s 程式設計 pascal語言 for語句 program juio vari integer a,s real begina for i to do begins a i a s end writel...