fa1.tmp

PL0 C语言版本 //A.2 C 版 本 /*编译和运行环境: *1Visual C++6.0,VisualC++.NET and Visual C++.NET 2003 *WinNT

Iput pl/0 file ?n
0 var a,b,c;

1 begin

2  a:=88;

4  read(b);

6  if b>0 then c:=a+b*(3+b);

18  else c:=a;

18  write(c)

20 end.