repeat.pl0

编译原理课程设计

PROGRAM EX01;
VAR A,B;
BEGIN
  READ(A);
  READ(B);
 IF A<B 
  THEN
  REPEAT 
   B+=A
 DOWHILE
   B<50
  ELSE
  REPEAT 
   B-=A
 DOWHILE
   B>0  ;
  WRITE(B);
  WRITE(A)
END.