请用Free Pascal解答以下3道题.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/15 09:20:44
请用Free Pascal解答以下3道题.
甲、乙、丙三人共有24元钱,先由甲分钱给乙、丙二人,所分给得数与各人已有的数相同;接着由乙分给丙、甲,分发同前;再有丙分钱给甲、乙,分发亦同前.经上述三次分钱之后,每个人的钱数恰好一样多.求原先各人的钱数分别是多少?
甲、乙、丙三人共有24元钱,先由甲分钱给乙、丙二人,所分给得数与各人已有的数相同;接着由乙分给丙、甲,分发同前;再有丙分钱给甲、乙,分发亦同前.经上述三次分钱之后,每个人的钱数恰好一样多.求原先各人的钱数分别是多少?
var
x,y,z:integer;
begin
x:=8; y:=8; z:=8;
x:=x div 2; y:=y div 2; z:=x+y+z;
z:=z div 2; x:=x div 2; y:=x+y+z;
y:=y div2; z:=z div2; x:=x+y+z;
writeln(x:3,y:3,z:3);
End.
x,y,z:integer;
begin
x:=8; y:=8; z:=8;
x:=x div 2; y:=y div 2; z:=x+y+z;
z:=z div 2; x:=x div 2; y:=x+y+z;
y:=y div2; z:=z div2; x:=x+y+z;
writeln(x:3,y:3,z:3);
End.
请用Free Pascal解答以下3道题.
请用Free Pascal解答以下3道题.我是一个小菜鸟.
Free Pascal解答
free pascal的问题 (用while语句解答)
统计 用free pascal
十六进制转换,请用free Pascal语言编写代码?
怎么用free pascal做这道题?
Free Pascal
一道简单的free pascal题目,各位free pascal大师解答一下吧.
Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?
free pascal练习题求解答 急! 求代码
一道简单的FREE PASCAL 希望大牛来解答