1樓：
這是第一題
var i,j,a,n,s,t:longint;
begin
readln(a,n);
for i:=1 to n do
begin
s:=0;
for j:=0 to i-1 do
begin
inc(s,a*round(exp(j*ln(10))));
end;
inc(t,s);
end;
writeln(t);
readln;
end.
第二題 複雜化一點 乙個書包能裝w千克物品，小明有n本書，重量分別是w1千克，w2千克，w3千克,w4千克..........wn千克,問書包中最多能裝哪些書?
那就是典型的貪心演算法
先把重量快排一遍
然後乙個乙個裝 直到 w<0 為止
但是你的第二題太簡單了
我沒辦法編
因為口算都出來了
這個你就自己寫吧
又不會的再問
2樓：22的傻子
第一題：
varn,a,i:longint;
begin
read(n,a);
for i:=1 to n do
begin
sum:=sum*10+a;
ans:=ans+sum;
end;
write(ans);
end.
第二題：只要用筆算一下強制輸出就好了。。。
3樓：123233哈哈
第一題 program zpf; var a,b,sum,ans:longint; begin read(a,b); sum:=a; for a:
=1 to b do begin ans:=ans+sum; sum:=sum*10+a; end; write(ans); end.
第二題 program zpf; var a,b,c,d,e:longint; max:real; begin for a:
=0 to 1 do for b:=0 to 1 do for c:=0 to 1 do for d:
=0 to 1 do for e:=0 to 1 do if a*0.29+b*0.
52+c*1.5+d*0.78+e*1.
16>max then max:=a*0.29+b*0.
52+c*1.5+d*0.78+e*1.
16; write(max:0:2); end.
PASCAL問題，Pascal問題
歷年noip。找源程式太容易了吧 pascal問題 第五題 program lsh5 vara,b,n,x,p integer t array 1.100 ofinteger begin readln n fora 1ton div2 1 dobegin x 0 p a forb a 1ton di...
關於Pascal的問題
語法錯誤是 program esatj 後面有 程式錯誤x 90 0.7 x 改為x 90 0.7 x 100 附加題var a,b,c real procedure max var a,b real vart real begin if aend begin read a,b,c max a,b ...
pascal選數，pascal程式 選數
var n,s,i,p,x,ans longint k qword a array 1.5000000 of longint procedure init var i longint begin read n,k for i 1 to n do read a i ans 0 end function...