var a:integer;

var b:real;

begin

a:=120;

if a<=100 then

b=a*0.6

else

b=100*0.6+(a-100)*1.0;

writeln(‘a=’,a,’ ‘,’b=’,b);
运行结果是：

查看解析

查看解析

编译一个项目（Application）的快捷键是（ ）

A F5 B F7 CF8 D F9

查看解析

查看解析

下列哪种类型的常量不能用来定义子界类型?( )

A．实型数据（Real） B．整型（Integer）

C．字符型（Character） D．用户定义的任何顺序类型

查看解析