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 "Для завершения программы нажмите Enter или введите 0"
INPUT "Для продолжения введите люое ненулевое значение ", Logika
LOOP
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.