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

Question

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

Answer 1

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

Comments

Спасибо вам большое! Вы уже мне много программ написали, но я не могу понять, что означает %, #?

---

Ой, не туда решение добавил)) Сейчас исправлю

---

Если не проходили, то можно вообще строчки
DIM A#, N%, S#
CLS
END
не писать

---

Хм, нам всегда говорили, что сначала вы вводите переменные, а потом уже всё остальное))

---

В QBasic'е много чего можно просто не писать))

---

% - целый тип

---

# - вещественный тип

---

всё, поняла, спасибо большое))

---

Готово

---

Спасибо большое, Вам!))