level 2
没有输出
2016年04月23日 13点04分
level 7
楼主
你把第九行改成writeln，不是readln。
代码如下：
program abc;
var x:real;
y:integer;
begin
readln(x);
if x<1 then y:=1
else if x=1 then y:=2
else y:=3;
writeln('x=',x:5:2,'y=',y);
end.
2016年04月24日 09点04分
4
你把第九行改成writeln，不是readln。
代码如下：
program abc;
var x:real;
y:integer;
begin
readln(x);
if x<1 then y:=1
else if x=1 then y:=2
else y:=3;
writeln('x=',x:5:2,'y=',y);
end.
