用pascal：一个炊事员上街采购，用n元钱买了m只鸡，其中： 母鸡一只15元； 公鸡一只10元； 小鸡一只5元； 正好把钱买完，问母鸡a、公鸡b、小鸡c各买多少只？每种鸡最少买一只 输入 读入两个整数分别为: 𝑛 [ 1 , 1500 ] _ 𝑚 [ 1 , 100 ] 输出 输出格式见样例 样例输入 复制 500 90 样例输出 复制 mu:1 gong:8 xiao:81 mu:2 gong:6 xiao:82 mu:3 gong:4 xiao:83 mu:4 gong:2 xiao:84

```pascal program chicken; var n, m, a, b, c: integer; found: boolean; begin readln(n, m); found := false; for a := 1 to m do for b := 1 to m do begin c := m - a - b; if (c >= 1) and (15 * a + 10 * b + 5 * c = n) then begin writeln('mu:', a, ' gong:', b, ' xiao:', c); found := true; end; end; if not found then writeln('No solution'); end. ``` [2026-01-02 18:58:59 | AI问答 | 151点数解答]