Pascal问题：均匀划分

首页/题库/117℃/2024-03-19 01:40:31

Pascal问题：均匀划分

有两个正整数K与P,然后将K分成P个部分：K1,K2,……Kp,要求找出一种分法,满足：K1＋K2＋……＋Kp＝K,并使K1×K2×……×Kp为最大.

例如：K=4,P=2,则分法有：

4＋0＝4

3＋1＝4

2＋2＝4

其中乘积最大者为：2×2＝4

输入：输入两个正整数K与P（2≤K≤35,P

优质解答：

var a,b,c1,c2,d1,d2,e1,e2,f1,f2:integer;

begin readln(a,b);

c1:=a div b;

c2:=(a div b)+1;

d1:=(a mod b)+b;

d2:=b-(c2*b-a);

b:=b-1;

for e1:=1 to b do f1:=f1*a;

f1:=f1*d1;

for e2:=1 to b do f2:=f2*a;

f2:=f2*d2;

if f1>=f2 then begin for e1:=1 to b do write(c1,'*');

write(d1,'=',f1);

end else begin for e2:=1 to b do write(c2,'*');

write(d2,'=',f2);

end;

readln;

end.

我来回答修改/报错/举报内容！

猜你喜欢