三十课：用五分、两分、一分的钱来凑一角钱
发表时间：2002-12-16 00:00:00 关键词：奥赛,PASCAL,编程,源码
(点击：) 把这篇文章告诉我的QQ或MSN朋友
program couqian;
var
i,j,k:integer;
begin
for i:=0 to 1 do
for j:=0 to 2 do
begin
k:=10-5*i-2*j;
if k<9 then writeln(i:3,j:3,k:3);
end;
{for k:=0 to 8 do
if i*5+j*2+k=10 then writeln(i:3,j:3,k:3);}
end.
本站特约顾问律师常州东晟律师事务所朱立律师（电话13915029670，QQ646146109）提醒您：
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！
本站文章皆为作者原创，其它媒体（包括但不限于报刊、杂志、网站、电视、电台）未经作者书面许可严禁转载（或部分摘录）！