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

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

SUB F(n)
  IF n < 8 THEN
    F(2 * n)
    PRINT n
    F(n + 3)
  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 
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 = 0
F = 1
WHILE F <= A
  K = K + 1
  F = F * K
WEND
IF F - A > A - FK THEN
  F = FK
  K = K - 1
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