Freepascal指导培训初级.ppt

n为考生成绩，输出成绩对应的等级。90—100为优秀，60—89为合格，0-59为不合格 Var n:real; begin readln(n); if n =60 then if n=90 then writeln(‘youxiu’) else writeln(‘hege’) else writeln(‘buhege’); end. （2）else 后面接if 语句 格式： if 条件1为真 then 语句1 else if 条件2为真 then语句2(1) else 语句2(2) 条件(if)语句嵌套 n为考生成绩，输出成绩对应的等级。90—100为优秀，60—89为合格，0-59为不合格 Var n:real; Begin readln(n); if n =60 then writeln(‘buhege’) else if n=90 then writeln(‘youxiu’) else writeln(‘hege’) end. Var n:integer; begin readln(n); if n mod 2 =0 then if n