level 10
var a,b:integer;
begin
read (a);
if (a<=50) then b=0.15*a;
if (a>50) then b=0.2*a-7.5;
writeln (b:);
readln;
readln
end.
大神快来解答，谢谢
2015年10月17日 10点10分
1
level 11
b:=0.15*a
b:=0.2*a-7.5
readln;
2015年10月17日 10点10分
4
level 14
。。基础自己翻书
把integer改成real，write时写成write(b)或write(b:0:x(四舍五入保留几位))
2015年10月17日 10点10分
5