信息学问题
发布网友
发布时间：2024-10-21 15:52
共1个回答
热心网友
时间：2天前
其实可以枚举的...从1~30枚举鸡的个数
如果剩下的就是兔子了。。
如果满足脚数就可以了...
Var
i: Longint;
Begin
for i:=1 To 30 Do
if 2 * i + 4 * (30 - i) = 90 Then Begin
Writeln('chicken: ', i);
Writeln('rabbit ', 30 - i);
Readln;
exit;
End;
End.
这样可以了么
