源代码.txt

来自「PLX编译器,采用多遍式和自顶向下分析法. (内附测试代码)」· 文本 代码 · 共 20 行

program
integer a;
integer b;
logical c
begin
a:=2;
while a<100 do
    b:=2;
    c:=true;
    while b<a do
        if a = a / b * b  then
             c:=false
        end;
        b:=b+1
    end;
    if c then write a end;
    a :=a+1
end
end.