CLS
DIM a AS SINGLE, b AS SINGLE, c AS SINGLE, d AS SINGLE
DIM Y AS SINGLE

INPUT "a=", a
INPUT "b=", b
INPUT "c=", c
INPUT "d=", d

IF (a MOD 2) = 0 OR (b MOD 2) = 0 OR (c MOD 2) = 0 OR (d MOD 2) = 0 THEN
        PRINT "Правда"
ELSE
        PRINT "Неправда"
END IF

CLS
DIM Y, Elem AS LONG, N, i, k AS INTEGER

PRINT "Ряд  Y= -2 +5 -8 +11 - ..."
INPUT "Число элементов ряда N=", N

Y = 0
Elem = 2
k = -1

FOR i = 1 TO N
   Y = Y + Elem * k
   Elem = Elem + 3
   k = -k
NEXT

PRINT "Сумма ряда Y="; Y

CLS

DIM N, M, i AS INTEGER
INPUT "Число элементов массива N=", N

REDIM A(1 TO N) AS SINGLE

' ----- Ввод элементов мссива
PRINT "Введите элементы массива A(N)"
FOR i = 1 TO N
    PRINT "A(" + STR$(i) + ")=";
    INPUT A(i)
NEXT

' ----- Подсчет элементов квадрат которых <10
M = 0
FOR i = 1 TO N
    IF A(i) * A(i) < 10 THEN M = M + 1
NEXT

PRINT "Кол-во элементов массива квадрат которых < 10 = "; M

CLS

DIM N, i, k AS INTEGER
DIM Y AS DOUBLE
DIM E2, E3 AS LONG

PRINT "Ряд Yi = (-1)^(i-1)*2^i*(1+(-1)^(i-1)/2/3^(5-i))"

INPUT "Число элементов ряда N=", N

k = -1    ' (-1)^(i-1)
E2 = 1    ' 2^i
E3 = 243  ' 3^(5-i)
Y = 0     ' Cумма ряда

FOR i = 1 TO N
    k = -k
    E2 = E2 * 2
    E3 = E3 / 3
    Y = Y + k * E2 * (1 + k / E3 / 2)
    PRINT k * E2 * (1 + k / E3 / 2)
NEXT

PRINT "Сумма элементов ряда = "; Y

DIM N, M, i, K, Logika AS INTEGER
DIM S AS SINGLE

Logika = 1
DO WHILE Logika <> 0
   CLS
   INPUT "Число элементов массива N=", N
   REDIM X(1 TO N), Y(1 TO N) AS SINGLE

' ----- Ввод элементов мссива X
   PRINT "Введите элементы массива X(i)"
   FOR i = 1 TO N
     PRINT "X(" + STR$(i) + ")=";
     INPUT X(i)
   NEXT

' ---- Перепишем элементы массива 3<X(i)<10 в массив Y
'      Подсчитаем сумму этих элементов и их число
   S = 0
   M = 0
   FOR i = 1 TO N
     IF 3 < X(i) AND X(i) < 10 THEN
        M = M + 1
        Y(M) = X(i)
        S = S + X(i)
     END IF
   NEXT

   K = M

' ---- Перепишем элементы массива вне диапазона 3<X(i)<10 в массив Y
   IF M + 1 <= N THEN
     FOR i = 1 TO N
        IF NOT (3 < X(i) AND X(i) < 10) THEN
           M = M + 1
           Y(M) = X(i)
        END IF
     NEXT
   END IF

' ----- Вывод элементов мссива Y(i)
   PRINT "Элементы массива Y(i)"
   FOR i = 1 TO N
     PRINT "Y(" + STR$(i) + ")=";
     PRINT Y(i)
   NEXT
  
   PRINT "Кол-во элементов 3<X(i)<10  K=" + STR$(K)

' --- Среднее элементов массива 3<X(i)<10
   IF K > 0 THEN
      S = S / K
      PRINT "Среднее этих элементов S=";
      PRINT STR$(S)
   END IF

   Logika = 0
   PRINT
   PRINT "Для завершения программы нажмите Enter или введите 0"
   INPUT "Для продолжения введите люое ненулевое значение ", Logika

LOOP