pascal语言编程题编程:炊事员采购用500元买90只鸡,母鸡一只15元,公鸡10元,小鸡5元,正好钱用完.母鸡、公鸡、小鸡各买几只?(我要程序!)急!

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/30 03:33:52

pascal语言编程题
编程:炊事员采购用500元买90只鸡,母鸡一只15元,公鸡10元,小鸡5元,正好钱用完.母鸡、公鸡、小鸡各买几只?(我要程序!)急!

VAR
i,j,k:integer;
BEGIN
FOR i:=0 TO 33 DO
FOR j:=0 TO 50 DO
BEGIN
k:=90-i-j;
IF 15*i+10*j+5*k=500
THEN writeln(i:5,j:5,k:5)
END
END.