Формальное решение на случай, если Ваш QBasic не распознаёт кириллицу(формальное, потому что отображаться будет правильно, но текст с кириллицей ввести не получится):
DIM S$, C$
CLS
INPUT "BBEDITE TEXT: ", S$
k = 0
S$ = LCASE$(S$)
FOR i = 1 TO LEN(S$)
C$ = MID$(S$, i, 1)
IF (C$ = " ") OR (C$ = "Ґ") OR (C$ = "Ё") OR (C$ = "®") OR (C$ = "г") OR (C$ = "л") OR (C$ = "н") OR (C$ = "о") OR (C$ = "п") THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END
Если поддерживает кириллицу:
DIM S$, C$
CLS
INPUT "BBEDITE TEXT: ", S$
k = 0
S$ = LCASE$(S$)
FOR i = 1 TO LEN(S$)
C$ = MID$(S$, i, 1)
IF (C$ = "а") OR (C$ = "е") OR (C$ = "и") OR (C$ = "о") OR (C$ = "у") OR (C$ = "ы") OR (C$ = "э") OR (C$ = "ю") OR (C$ = "я") THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END
Переводим числа в разных системах счисления в десятичную систему и ищем совпадения с заданными десятичными числами. Например, предполагаем, что 323 - это число в системе счисления с основанием 4. 323(4)=59(10). Не подходит. 323(5)=88(10). Подходит. Итак:
89=1121(4)
77=1001101(2)
61=2021(3)
91=231(6)
88=323(5)
Виталий|Андрей|Павел=(Виталий+Андрей+Павел)-Андрей&Виталий-Андрей&Павел-Виталий&Павел
Виталий=90
Павел=132
Андрей=121
Андрей&Виталий = 50
Андрей&Павел = 91
Виталий&Павел = 51
Виталий|Андрей|Павел = (132+121+90)-50-91-56=146
Ответ: 146
4 в 10 сс равно 4 в 16 сс
Чтобы 25 перевести в 16 сс раздели столбиком 25 на 16, то же самое и с числом 123
var age = 11;
var accompanied = true;
if (age >= 12 | accompanied) {
alert('Yes');
} else {
alert('No');
}