pascal ：车站行李托运收费
答案:3 悬赏:20 手机版
解决时间 2021-01-14 21:17
- 提问者网友：黑米和小志
- 2021-01-14 03:50
pascal ：车站行李托运收费
最佳答案
- 五星知识达人网友：想偏头吻你
- 2021-01-14 04:46
program Fee;
var a:real;
begin
readln(a);
if a<=10 then writeln(a*2.5:0:2)
else writeln(10*2.5+(a-10)*1.5:0:2);
end.直接就可以用了
var a:real;
begin
readln(a);
if a<=10 then writeln(a*2.5:0:2)
else writeln(10*2.5+(a-10)*1.5:0:2);
end.直接就可以用了
全部回答
- 1楼网友：往事隔山水
- 2021-01-14 06:56
答案可以但错了
10千克或10千克以下，《只》收费2.5元
program Fee;可以删掉
这样子：
var a:real;
begin
readln(a);
if a<=10 then writeln(2.5:1:2)
else writeln(2.5+(a-10)*1.5:1:2);
end.
10千克或10千克以下，《只》收费2.5元
program Fee;可以删掉
这样子：
var a:real;
begin
readln(a);
if a<=10 then writeln(2.5:1:2)
else writeln(2.5+(a-10)*1.5:1:2);
end.
- 2楼网友：爱难随人意
- 2021-01-14 05:35
var
money,real:real;
begin
readln(n);
if n<=10 then money:=2.5 else money:=2.5+(n-10)*1.5;
writeln(money:0:2);
end.
money,real:real;
begin
readln(n);
if n<=10 then money:=2.5 else money:=2.5+(n-10)*1.5;
writeln(money:0:2);
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯