char_real.pl0

来自「我在三做的课程」· PL0 代码 · 共 10 行

PROGRAM XYZ;
CHAR C,D;
REAL E,F;
BEGIN
C:='U';
E:=10.5;
WRITE(C,E);
READ(D,F);
WRITE(D,F);
END.