如何有Pascal语言编译下题

答案:3 悬赏:0 手机版

解决时间 2021-08-19 23:09

提问者网友：世勋超人
2021-08-19 12:23

有甲、乙、丙三个小朋友。甲有x粒糖果，乙有y粒糖果，丙有z粒糖果。现在他们做一个游戏。从甲开始，将自己的糖平均分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有多少粒糖果？

最佳答案

五星知识达人网友：山有枢
2021-08-19 13:06

var
i,j,k,x,y,z:longint;

begin
readln(x,y,z);
x:=x div 3;
y:=x+y;z:=z+x;
y:=y div 3;
x:=x+y;z:=z+y;
z:=z div 3;
x:=x+z;y:=y+z;
writeln(x,' ',y,' ',z);
end.

全部回答

1楼网友：佘樂
2021-08-19 15:04

var x,y,z:longint; begin readln(x,y,z); inc(y,x div 3); inc(z,x div 3); x:=x div 3; inc(x,y div 3); inc(z,y div 3); y:=y div 3; inc(x,z div 3); inc(y,z div 3); z:=z div 3; writeln(x,' ',y,' ',z); end.

2楼网友：野慌
2021-08-19 13:36

Var x,y,z:integer;

Begin

x:=x div 3;//吃掉多出来的，并分为3份，留给自己一份

y:=y+x;//给乙一份

z:=z+x;//给丙一份

y:=y div 3;//类似前面的操作

x:=x+y;

z:=z+y;

z:=z div 3;

x:=x+z;

y:=y+z;

writeln('x=',x,' y=',y,' z=',z);

End.

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！