1樓：
隻數 n=x div 4;
x mod 4 =0,1,2,3
0元 全4元的
1元 乙隻5元的
2乙隻元6元
3元乙隻5元的,乙隻元6元，4元的=n-2，
程式在下面，錢太少會有1~3元剩餘的！
7元有1元剩餘，3~1元,買不起鋼筆全是剩餘的!
program pen_x;
var n4,n5,n6,x:integer;
begin
realn(x)
n4:=x div 4;
if n4=0 then writeln("$4 :",0,",$5 :",0,"$6 :",0)
else begin
case x mod 4 of
0:n5:=0;n6:=0;
1:n5:=1;dec(n4);n6=0;
2:n5=0;n6:=1;dec(n4);
3:if n4>=2 then begin
n5:=1;n6:=1;dec(n4,2);
endelse
begin
n5:=0;n6:=1;dec(n4);
end;
end;
writeln("$4 :",n4,",$5 :",n5,"$6 :",n6)；
end;
end.
2樓：匿名使用者
已試過，望採納，不懂請追問，謝謝：）
program gangbi;
varx,a,b,c:integer;
begin
writeln('x=');
readln(x);
if x mod 4=0 then
begin
a:=0;
b:=0;
c:=x div 4;
end;
if x mod 4=1 then
begin
a:=0;
b:=1;
c:=x div 4-1;
end;
if x mod 4=2 then
begin
a:=1;
b:=0;
c:=x div 4-1;
end;
if x mod 4=3 then
begin
a:=1;
b:=1;
c:=x div 4-2;
end;
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
end.
附圖，有圖有真相：
3樓：匿名使用者
首先如果剩餘的錢大於11，就去不停買4元的，買到小於等於11元為止
如果剩餘的錢小於等於11，自己打個表把每種情況列出來就好了
因為11元是最大的不能買4元筆的價值
4樓：匿名使用者
貪心加搜尋？
問題聯盟吧歡迎您！
PASCAL程式設計問題C語言程式設計問題
program tm1 var a,b array 1.1000 of integer i,j,k,m integer begin k 1 for i 2 to 1000 do begin for j 2 to i 1 do begin if i mod j 0 then begin a i a i...
pascal回溯pascal回溯
var a array 1.20,1.20 of integer s set of 1.20 min,sum,n,i,j integer procedure work r integer var i integer begin for i 1 to n do if not i in s then b...
Pascal詳解 指標型別 ，pascal所有資料型別
第十一章 指標型別 11.1 指標 11.2 單鏈表 11.1 指標 指標是通過位址來訪問變數的一種特殊的資料型別，屬於動態的資料結構，它可以在需要時產生，用完後則又可以取消或 以減少占用的記憶體空間。指標變數與其他型別的變數不同，它占有的不是資料，而是位址。由於動態資料結構的變數是在程式執行過程中...