网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
pascal吧 关注：14,973贴子：132,443
  • 4回复贴，共1页

新手求助！

国庆期间，某超市举行购物优惠活动：所购物品不超过100元时，按九折付款，如超过100元，超过部分按六折收费。请你编一程序完成超市自动计费的工作。
输入只有一个整数M，表示购物的款数。
输出打折后的款数（ 结果保留两位小数）。
输入样例1：
23.31
输入样例2：
120
输出样例1：
20.98
输出样例2：
102.00


var
m,s:real;
begin
read(m);
s := 0;
if m<=100 then
begin
s:=m*0.9;
end
else if m > 100 then
begin
s:= 100*0.9+(m-100)* 0.6;
end;
write(s:0:2);
end.
为神马不对？求大神指教


为什么要那么多begin和end


var n:extended;
begin
read(n);
if n<=100 then write(n*0.9:0:2) else write(90+(n-100)*0.6:0:2);
end.


谢谢，已解决


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 4回复贴，共1页
分享到: