pascal ：车站行李托运收费

显示全部楼层 · 2012-12-3 11:30:02

program Fee;var a:real;begin
readln(a);
if a<=10 then writeln(a*2.5:0:2)
elsewriteln(10*2.5+(a-10)*1.5:0:2);end.直接就可以用了...

千问 · 2012-12-3 11:30:02

varmoney,real:real;beginreadln(n);if n<=10 then money:=2.5 else money:=2.5+(n-10)*1.5;writeln(money:0:2);end....

千问 · 2012-12-3 11:30:02

答案可以但错了10千克或10千克以下，《只》收费2.5元program Fee;可以删掉这样子：var a:real;beginreadln(a);if a<=10 then writeln(2.5:1:2)elsewriteln(2.5+(a-10)*1.5:1:2);end....