Найдите ошибку в 7 строке(Qbasic) : CLS K = 0 DIM B(K) INPUT N FOR I = 1 TO N INPUT A IF A больше 0 AND A MOD 3 = 0 THEN K=K+1 : B(K) = A NEXT I IF K больше 0 THEN GOTO 10 ELSE GOTO 20 C = K 10 FOR D = C TO 1 PRINT B(...
Найдите ошибку в 7 строке(Qbasic) :
CLS
K = 0
DIM B(K)
INPUT N
FOR I = 1 TO N
INPUT A
IF A > 0 AND A MOD 3 = 0 THEN K=K+1 : B(K) = A
NEXT I
IF K > 0 THEN GOTO 10 ELSE GOTO 20
C = K
10 FOR D = C TO 1
PRINT B(K)
NEXT D
END
20 PRINT -1
END
Гость
Ответ(ы) на вопрос:
ГостьCLS
K = 0
DIM B(10000)
INPUT N
FOR i = 1 TO N
INPUT A
IF A > 0 AND (A MOD 3) = 0 THEN K = K + 1: B(K) = A
NEXT i
IF K > 0 THEN GOTO 10 ELSE GOTO 20
10 :
C = K
FOR D = C TO 1 STEP -1
PRINT B(D)
NEXT D
END
20 :
PRINT -1
END
Не нашли ответ?
Похожие вопросы