编程pascal

显示全部楼层 · 2011-1-7 13:59:20

有三种纪念邮票，第一种每套1张售价2园。第二种每套1张售价4园，第三种每套9张售价2园，100张邮票用了100元钱，问三种邮票个几套？

千问 · 2011-1-7 13:59:20

var i,j:integer;beginfor i:=0 to 50 do for j:=0 to 25 do
if (100-i-j) mod 9=0 then
if i*2+j*4+(100-i-j) mod 9 * 2 =100 then writeln (i,' ',j,' ',100-i-j);end.