Pascal语言《小玉家的电费》题目
答案:1 悬赏:80 手机版
解决时间 2021-02-09 05:09
- 提问者网友：雾里闻花香
- 2021-02-08 12:58
Pascal语言《小玉家的电费》题目
最佳答案
- 五星知识达人网友：轻雾山林
- 2021-02-08 14:38
var x:integer; y:real;
begin
readln(x);
if x<=150 then y:=0.4463*x
else begin
y:=0.4463*150;
if x<=400 then y:=y+0.4663*(x-150)
else begin
y:=y+0.4663*(400-150);
if x>400 then y:=y+0.5663*(x-400);
end
end;
writeln(y:0:1);
end.
begin
readln(x);
if x<=150 then y:=0.4463*x
else begin
y:=0.4463*150;
if x<=400 then y:=y+0.4663*(x-150)
else begin
y:=y+0.4663*(400-150);
if x>400 then y:=y+0.5663*(x-400);
end
end;
writeln(y:0:1);
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯