Question

free pascal查错...

这一段代码哪儿错了？

Answer 1

错误有三个...

第一个是： else后面不能加 do

第二个是： y定义的是实型，不能用 mod

第三个是： if后面的判断语句，不能加分号

所以，代码如下：

program p1_1;

var x:real;

    y,m:integer;

begin

  read(x);

  y:=round(x);

  if y-x<>0 then

    writeln('wufa')

  else m:=y mod 5;

  if m=0 then writeln('wufa')

    else writeln('keyi');

end.

附编译成功的截图：