首页 > 试题广场 >

program Programl; var a,...

[填空题] 
program Programl;
var
   a,x,y,okl,ok2:integer;
begin
   a:=100;
   x:=10;
   y:=20;
   okl:=5; ok2:=0;
   if ((x>y) or ((y<>20) and (okl=0)) and (ok2<>0)) then
       a:=1
   else if ((okl<>0) and (ok2=0)) then
      a:=-1
   else
      a:=0;
   writeln(a);
end.

输出：1

查看答案及解析
添加回答

这道题你会答吗？花几分钟告诉大家答案吧！

提交观点

问题信息

普及 Pascal 完善程序-Pascal 数学
上传者：牛客309901号
难度：
0条回答 358浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号