QBasic. Помогите, пожалуйста! Дано целое число N (N больше 0). Проверить, является ли оно степенью числа 2

Question

QBasic. Помогите, пожалуйста! Дано целое число N (N>0). Проверить, является ли оно степенью числа 2

Гость

Ответ(ы) на вопрос:

Accepted Answer

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