ric.pl0

编译原理课程设计 编译原理课程设计

PROGRAM RIC;
VAR
R:REAL;
I:INTEGER;
C:CHAR;
BEGIN
READ(R,I,C);
R:=R/13+12*1;
I:=I DIV 3+12 MOD 3;
WRITE(C);
C:='A';
WRITE(R,I,C);
END.