-1
已解决
初级守护
var
x,y:double;
begin
readln(x);
if x>3 then writeln(x*2.3:0:1)
else if x=3 then writeln(6.0:0:1)
else if x<3 then writeln(x*1.7:0:1);
end.
3
已采纳
初级天翼
你是对的100分，老师说这道题有问题要修改
所以pascal70分正常
3
资深守护
这道题由于Pascal本身不能像c++一样有几位输出几位小数，而是用:x:y的方式强制保留小数位数，所以这道题Pascal做最高70分。
0
资深守护
if(x>3){
y=x*2.3;
}
else if(x==3){
y=6;
}
else if(x<3){
y=x*1.7;
}
0
高级光能
if (a<3)
s=a*1.7;
else if (a==3)
s=6;
else s=a*2.3;
0
缔造者
1
0
高级启示者
对不起。。。我学了Pascal这么多年，还没有见过类型可以定义为double的，我只见过real。
0
缔造者之神
1
-10
新手光能
没学过pascal
