搜狗做题网用pascal算这道题
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/05/25 09:25:53
用pascal算这道题
甲、乙、丙、各有磁带36、48、64盒,先由甲把自己的磁带平均分三份,自己留一份,分给乙、丙各一份,自己留一份,然后乙、丙照着他的做法处理输出甲、乙、丙的磁带
甲、乙、丙、各有磁带36、48、64盒,先由甲把自己的磁带平均分三份,自己留一份,分给乙、丙各一份,自己留一份,然后乙、丙照着他的做法处理输出甲、乙、丙的磁带
program ex1;
var
a,b,c,s:integer;
begin
a:=36; b:=48; c:=64;
b:=b+a div 3; c:=c+a div 3; a:=a div 3;
a:=a+b div 3; c:=c+b div 3; b:=b div 3;
b:=b+c div 3; a:=a+c div 3; c:=c div 3;
writeln('a=',a,' b=',b,' c=',c);
end.
var
a,b,c,s:integer;
begin
a:=36; b:=48; c:=64;
b:=b+a div 3; c:=c+a div 3; a:=a div 3;
a:=a+b div 3; c:=c+b div 3; b:=b div 3;
b:=b+c div 3; a:=a+c div 3; c:=c div 3;
writeln('a=',a,' b=',b,' c=',c);
end.