1樓：英吟
第1題：
program t1;
vari,m:integer;
begin
i:=6; m:=91; // 因為第7天離山頂只有91米，不屬於迴圈中，所以m=6，所以只有六天，所以i=6
while i>=1 do // 使用遞減的方法做begin
m:=(m+24)*2; //按條件計算mdec(i);
end;
write(m); // 咦，答案是珠穆朗瑪峰的高度end.
第2題：
program t2;
vari,n:integer;
m:real;
begin
read(n);
m:=1;
for i:=2 to n do
begin
if (i mod 2)=0 then m:=m-1/i //判斷是加還是減
else m:=m+1/i;
end;
write(m);
end.
第3題：
program t3;
varn,d,m:longint;
begin // 時間不夠了，不加註釋了，你自己琢磨一下，很簡單的
readln(n);
m:=2; d:=n;
write(n,'=1*');
repeat
if (d mod m)<>0 then inc(m)else begin
d:=d div m;
if (d=1) then write(m)else write(m,'*');
end;
until m=n;
end.
2樓：匿名使用者
1)var i,j,k:integer;
begin
i:=91;
while i<=30000 do
begin
k:=0;
for j:=1 to 7 do
k:=k+(i-k) div 2+24;
if (i-k)=91 then
begin
writeln(i);
break;
endelse i:=i+2;
end;
end.
answer:17618
2)var n,i:integer;
b:boolean;
s:real;
begin
readln(n);
i:=1;b:=true;s:=0;
while i<=n do
begin
if b then
begin
s:=s+1/i;
b:=false;
endelse
begin
s:=s-1/i;
b:=true;
end;
i:=i+1;
end;
writeln(s);
end.
3) 人家搶先一步，不做啦！看看時間吧
Pascal問題 矩陣乘法，Pascal 矩陣乘法的完整過程？
vara,b,c,i,j,k longint x,y,f array 0.2000,0.2000 of longint begin read a read b read c for i 1 to a do for j 1 to b do read x i,j for i 1 to b do for ...
pascal郵票問題
你最後一步的prin寫錯了！應該這樣寫 var n,m,i,mm integer a array 1.100 of integer money array 0.10000 of boolean procedure print var max,i,j integer begin max 0 區域性變數...
pascal問題望解答，3個pascal問題,望解答！
第一題就是while3重，判斷。然後判斷它是不是素數 pascal程式設計問題，求大師解答！這個問題一點也不簡單！這涉及演算法 簡單的思路，就是對這n個數，做列舉，從1個，2個，3個，每個裡面又有不同的組合，這就是所謂的 冪集 如果n很大的時候，這個方法效率太低不可行 前面那位同學提及的揹包演算法就...