请高手们来截pascal中的几题

来源：百度知道编辑：UC知道时间：2024/05/21 08:40:11

1.邮局发行一套票面有四种不同的邮票，如果每封信所贴邮票的张书不超过3张，最在整数r，使得用不超过3张的邮票，可以贴出1、2、3、……r来，找出4种面值数，使得r值最大
2.求出1000中的整数，使其数字之和为13，例如：数85，其数字之和为8+5=13；数373，其数字之和为3+7+3=13。

第一题还没编出
下面只给出第二题的源程序
program shuzi;
var
i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i+k+j=13 then
writeln(i,j,k);
end.