Тренировочный вариант ЕГЭ по информатике №3

DIM S, N AS INTEGER
S = 0
N = 40
WHILE S + N < 100
  S = S + 20
  N = N - 5
WEND
PRINT S

SUB F(n)
  IF n < 8 THEN
    F(n + 3)
    PRINT n
    F(2 * n)
  END IF
END SUB

N = 10
s = 0
FOR i = 1 TO N-1
  IF A(i-1) > 2*A(i) THEN
    A(i) = 2*A(i)
    s = s + A(i)
  END IF
NEXT i

DIM X, A, B AS INTEGER
INPUT X
A = 0: B = 1
WHILE X > 0
  IF X MOD 2 > 0 THEN
    A = A + X MOD 12
  ELSE
    B = B * (X MOD 12)
  END IF
  X = X / 12
WEND
PRINT A
PRINT B

DIM A, B, T, M, R AS INTEGER
A = -11: B = 11
M = A: R = F(A)
FOR T = A TO B
   IF F(T) <= R THEN
      M = T
      R = F(T)
   END IF
NEXT T
PRINT M+R

FUNCTION F(x)
  F = 2*(x*x-50)*(x*x-50)+6
END FUNCTION

DIM A, K, F AS INTEGER
INPUT A
K = 1
F = 1
WHILE F < A
  K = K + 1
  F = F * K
WEND
IF F - A >= FK - A THEN
  F = FK
END IF
PRINT K
END

CONST N=2018
DIM A(N) AS INTEGER
DIM I, K, M AS INTEGER
FOR I = 1 TO N 
    INPUT A(I)
NEXT I
…
END