ric.pl0

来自「刚开始设计时对PL/0了解并不多,随着设计的开展,对PL/0也有了一定的认识,了」· PL0 代码 · 共 13 行

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.