代码搜索结果
找到约 10,000 项符合
0 的代码
4.pl0
PROGRAM XYZ;
VAR
I:INTEGER;
BEGIN
FOR I:=10+3 DOWNTO 1+3 DO
WRITE(I);
END.
1.pl0
PROGRAM P1;
VAR I,MAX:INTEGER; X,Y:INTEGER;
BEGIN
READ(I,X,Y);
IF I>X THEN
MAX:=I
ELSE MAX:=X;
IF Y>MAX
THEN MAX:=Y;
WRITE(MAX);
END.
2.pl0
PROGRAM XYZ;
VAR
I:INTEGER;
BEGIN
FOR I:=10+3 DOWNTO 1+3 DO
WRITE(I);
END.
3.pl0
PROGRAM XYZ;
VAR
TEST1,TEST2,TEST3,TEST4:INTEGER;
BEGIN
TEST1:=10;
TEST2:=33;
TEST3+=TEST1*12+3;
TEST4-=TEST2 DIV 12 +1+3;
WRITE(TEST1,TEST2,TEST3,TEST4);
END.