test10.pl0

来自「pl0的几个小程序 老师给的 很简单 共享下」· PL0 代码 · 共 9 行

var a,b,c;
begin
 read(a,b,c);
 while a#0 do
  begin
  if b#0 then write(a,b,c);
  read(a,b,c)
  end
end.