pascal程序 分钱游戏和牧场奶牛吃草
答案:3 悬赏:80 手机版
解决时间 2021-04-03 19:50
- 提问者网友：暮烟疏雨之际
- 2021-04-02 20:20
pascal程序 分钱游戏和牧场奶牛吃草
最佳答案
- 五星知识达人网友：一秋
- 2021-04-02 21:02
1.
var a,b,c,x,y,z:longint;
begin
readln(a,b,c);
for x:=0 to 24 do
for y:=0 to 24-x do
begin
z:=24-x-y;
if (4*x-4*y-4*z=a) and
(-2*x+6*y-2*z=b) and
(-x-y+7*z=c) then
begin
writeln(x,' ',y,' ',z);
end;
end;
end.
2.
begin
writeln(100);
end.
var a,b,c,x,y,z:longint;
begin
readln(a,b,c);
for x:=0 to 24 do
for y:=0 to 24-x do
begin
z:=24-x-y;
if (4*x-4*y-4*z=a) and
(-2*x+6*y-2*z=b) and
(-x-y+7*z=c) then
begin
writeln(x,' ',y,' ',z);
end;
end;
end.
2.
begin
writeln(100);
end.
全部回答
- 1楼网友：神也偏爱
- 2021-04-02 22:54
对吗！问10班的男1号就行了
- 2楼网友：未来江山和你
- 2021-04-02 22:25
你是不是建兰的......
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯