社区讨论
Pascal 正解
P1422小玉家的电费参与者 6已保存回复 5
讨论操作
快速查看讨论及其快照的属性，并进行相关操作。
- 当前回复
- 5 条
- 当前快照
- 1 份
- 快照标识符
- @mi4f4oe3
- 此快照首次捕获于
- 2025/11/18 18:16 4 个月前
- 此快照最后确认于
- 2025/11/18 18:16 4 个月前
CPP
var c:real;
begin
read(c);
if (c<=0) then writeln('wrong');
if (c<=150) and (c>0) then c:=c*0.4463;
if (c<=400) and (c>150) then c:=150*0.4463+(c-150)*0.4663;
if (c>400) then c:=150*0.4463+250*0.4663+(c-400)*0.5663;
write(c:0:1);
end.
回复
共 5 条回复，欢迎继续交流。
正在加载回复...