pascal 组队竞赛
答案:1 悬赏:0 手机版
解决时间 2021-11-24 04:44
- 提问者网友：杀手的诗
- 2021-11-23 07:35
pascal 组队竞赛
最佳答案
- 五星知识达人网友：神鬼未生
- 2021-11-23 08:46
所要求的程序如下：
var m,n,k,t,num:integer;
begin
readln(m,n,k);
while (m>1)and(n>0)do
begin inc(num); dec(m,2); dec(n) end;
dec(k,m+n);
while k>0 do
begin dec(num); dec(k,3) end;
writeln(num);
end.
var m,n,k,t,num:integer;
begin
readln(m,n,k);
while (m>1)and(n>0)do
begin inc(num); dec(m,2); dec(n) end;
dec(k,m+n);
while k>0 do
begin dec(num); dec(k,3) end;
writeln(num);
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯