Версия для печати темы

CLS
INPUT "A=", A
INPUT "B=", B
INPUT "C=", C
INPUT "D=", D
IF A = B THEN
PRINT "Nepravda"
END
END IF
IF A = C THEN
PRINT "Nepravda"
END
END IF
IF A = D THEN
PRINT "Nepravda"
END
END IF
IF B = C THEN
PRINT "Nepravda"
END
END IF
IF B = D THEN
PRINT "Nepravda"
END
END IF
IF C = D THEN
PRINT "Nepravda"
END
END IF
PRINT "Pravda"
END

CLS
INPUT "N=", N
DIM X(N)
DIM Y(N)

FOR i = 1 TO N
PRINT "X["; i; "]=";
INPUT X(i)
NEXT

i = 1

FOR j = 2 TO N STEP 2
Y(i) = X(j)
i = i + 1
NEXT

FOR j = 1 TO N STEP 2
Y(i) = X(j)
i = i + 1
NEXT

PRINT "X: "
FOR i = 1 TO N
PRINT X(i)
NEXT

PRINT "Y: "
FOR i = 1 TO N
PRINT Y(i)
NEXT

END