QBasic. Помогите, пожалуйста! Дано целое число N (N больше 0). Проверить, является ли оно степенью числа 2
QBasic. Помогите, пожалуйста! Дано целое число N (N>0). Проверить, является ли оно степенью числа 2
Гость
Ответ(ы) на вопрос:
ГостьDIM N#, A#
CLS
INPUT "N = ", N
A = 1
WHILE (A < N)
A = A * 2
WEND
IF A = N THEN
PRINT "DA"
ELSE
PRINT "NET"
END IF
END
Не нашли ответ?
Похожие вопросы